Пожалуйста, напишите программу для паскаля: для нахождения делителей числа n и их суммы с помощью цикла while
Пожалуйста, напишите программу для паскаля: для нахождения делителей числа n и их суммы с помощью цикла while
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы