SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pushInka
Цитата:| 1. Найти число из промежутка [a,b], у которых больше всего делителей. |
Если вкратце, алгоритм такой - функция, которая возращает количество делителей переданного ей числа (например, function CountOfdividers(N : integer) : integer).
Две переменные, в одной максимальное число делителей, в другой - само число, для котого нашлось это максимальное число делителей. Далее цикл от a до b, где определяем число делителей числа и сравниваем с максимальным.
ох... не хотел программу прикладывать, но ладно... бонус - Программа
Цитата:| 2. Дано натуральное число n. Выяснить, имеются ли среди чисел n, n+1, n+2,...,2n близнецы, т.е. простые числа, разность между которыми равна двум. |
поищите, здесь в форуме была процедура (с) Jokerjar от 19.05.2007
function IsProstoe(N: integer): boolean;
на основе этой функции и пишите. примерный алгоритм такой:
после ввода числа n
делайте цикл I:=n to ((2*n)-2)
и проверяйте простые ли числа i и i+2 - если оба простые - то они близнецы - выводите их на экран.
OFFTOP А ник у Вас забавный... сама придумала?.. ;-) |
ник - сама... рада, что понравился!)))