Пожалуйста, напишите программу для паскаля: для нахождения делителей числа n и их суммы с помощью цикла while
Натка3:
Можете, если не хватит времени добавлять в комменты
Ответы
Ответ дал:
1
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.
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.
Приложения:
ошибка(
забыл про функцию
исправил, теперь должно работать
надо, чтобы оно еще выводило делители
уже
я ввожу 7,а оно выводит 7 а ниже 8, а должно 7,1 а ниже 8. оно должно выводить все делители
спасибо
добавил файл, у меня все работает
спасибо огромное) заработало
попробуй так удобнее: 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.
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.
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад