Var n, a, i: Integer;Как его изменить что бы она определяла сумму всех делителей вводимого числа?
Begin
Writeln (‘Vvedi chislo’);
Readln (a);
n:= a div 2;
for i:=2 to n do
if a mod i=0 then writeln (i);
End.
Var n, a, i: Integer;Как его изменить что бы она определяла сумму всех делителей вводимого числа?
Begin
Writeln (‘Vvedi chislo’);
Readln (a);
n:= a div 2;
for i:=2 to n do
if a mod i=0 then writeln (i);
End.
Var n, a, i: Integer; s:longint;
Begin
Writeln ('Vvedi chislo');
Readln (a);
s:=0;
n:= a div 2;
for i:=1 to n do
if a mod i=0 then inc(s,i);
End.