Помогите написать программу в Паскале для нахождения суммы всех делителей натуральных чисел от 5 до 20. Очень нужно))
Answers & Comments
lNT64
Program z1; var s:integer;i,j:byte; begin s:=0; for i:=5 to 20 do begin for j:=1 to i do begin if (i mod j)=0 then begin s:=s+j end end end; write('summa=',s); readln end.
Answers & Comments
var s:integer;i,j:byte;
begin
s:=0;
for i:=5 to 20 do begin
for j:=1 to i do begin
if (i mod j)=0 then begin
s:=s+j
end
end
end;
write('summa=',s);
readln
end.