Question

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

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.