Реферат: Операторы цикла

12) увеличить I на 1 и перейти к п. 5;

13) вывести число с максимальной суммой делителей и эту сумму;

14) конец.

Program Sum_Del;

Var N, I, Sum_Max, Sum, K, Ch : Integer;

Begin

Write('Введите число N: '); ReadLn(N);

Sum_Max := 1; {Максимальная сумма делителей}

Ch := 1; {Число с максимальной суммой делителей}

For I := 2 To N Do {Это цикл по количеству чисел}

Begin

Sum := 0;

For K := 1 To I Div 2 + 1 Do {В этом цикле находим сумму делителей}

If I Mod K = 0 Then {Если I нацело делится на K, то K - делитель I}

Sum := Sum + K;

Sum := Sum + I;

If Sum > Sum_Max Then Begin Sum_Max := Sum; Ch := I End;

End;

WriteLn('Максимальную сумму делителей ', Sum_Max, ' имеет число ',Ch)

End.

Задача 4. Дано натуральное число n. Получить все простые делители этого числа.

{Программа отыскания простых делителей данного числа}

Program Pr_Del;

Var N, I, Vsp : Integer;

Log_Per, Priznak : Boolean;

Begin

Write('Введите натуральное число: ');

ReadLn(N);

Priznak := True; {Признак того, не является ли введенное число простым}