Пожалуйста, напишите программу для паскаля: для нахождения делителей числа n и их суммы с помощью цикла while
Answers & Comments
Александрий
Program s; var d, n, s: integer; begin readln(n); s:=0; d:=1; while(d<=n) do begin if(n mod d = 0) then begin s:=s+d; writeln(d); end; d:=d+1; end; writeln(s); end.
Натка3
попробуй так удобнее: var i, n, s: integer; begin readln(n); s:=0; i:=1; while(i<=n) do begin if(n mod i = 0) then begin s:=s+i; write(i,' '); end; i:=i+1; end; writeln('Сумма делителей:',s); end.
Answers & Comments
var d, n, s: integer;
begin
readln(n);
s:=0;
d:=1;
while(d<=n) do
begin
if(n mod d = 0) then
begin
s:=s+d;
writeln(d);
end;
d:=d+1;
end;
writeln(s);
end.
begin
readln(n);
s:=0;
i:=1;
while(i<=n) do
begin
if(n mod i = 0) then
begin
s:=s+i;
write(i,' ');
end;
i:=i+1;
end;
writeln('Сумма делителей:',s);
end.