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

danik2012daniweufyv3 danik2012daniweufyv3    3   20.09.2019 18:00    2

Ответы
H2Oя H2Oя  08.10.2020 05:08
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика