Дано число N. Найти сумму простых делителей числа N.

Question

Информатика

Васяка

14 февраля, 17:37

Дано число N. Найти сумму простых делителей числа N.

+4

Ответы (1)

Знаете ответ на вопрос?

Ната · Answer 1

Var N, i, summa:integer;

begin

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

for i:=1 to N do begin

if N mod i = 0 then Summa:=summa+i;

end;

Writeln ('Сумма=', Summa) ;

end.