Вопрос, который вызвал трудности
Найти сумму делителей каждого из целых чисел от 50 до 70 (программа Паскаль)
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
program z1;
uses crt;
var a,b,c,i: integer;
begin
for a:=50 to 70 do begin i:=0;
for b:=1 to a do
if a mod b = 0 then
i:=i+b; writeln(a:4,i:5);
end;
end.
uses crt;
var a,b,c,i: integer;
begin
for a:=50 to 70 do begin i:=0;
for b:=1 to a do
if a mod b = 0 then
i:=i+b; writeln(a:4,i:5);
end;
end.