Ответы
Ответ дал:
0
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.
begin
Write('Введите число='); Readln(N);
for i:=1 to N do begin
if N mod i = 0 then Summa:=summa+i;
end;
Writeln('Сумма=',Summa);
end.
Вас заинтересует
1 год назад
1 год назад
8 лет назад