Написать пояснения к каждой строчке задачи Program z3; var i, j, s: word; begin for i : = 1 to 10000 do begin s : = 0; for j:=1 to i div 2 do if i mod j = 0 then s : = s+j; if s = i then write (i,' '); end; writeln; readln; end.

Question

Nardzhi

Информатика

22 апреля, 21:44

Написать пояснения к каждой строчке задачи Program z3; var i, j, s: word; begin for i : = 1 to 10000 do begin s : = 0; for j:=1 to i div 2 do if i mod j = 0 then s : = s+j; if s = i then write (i,' '); end; writeln; readln; end.

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Аделина Яковлева · Answer 1

Program z3; / / записываем название программы

var i, j, s: word; / / перечисляем переменные и определяем их тип

begin / / начало программы

for i : = 1 to 10000 do / / организуем цикл от 1 до 10000

begin / / начало цикла

s : = 0; / / задаем начальное значение для переменной s

for j:=1 to i div 2 do / / организуем цикл от 1 до половины значения переменной i

if i mod j = 0 / / проверяем, если условие истинно, то

then s : = s+j; / / вычисляем по формуле

if s = i / / проверяем, если условие истинно, то

then write (i,' '); / / выводим на экран

end; / / конец цикла

writeln; / / переход на новую строку для вывода

readln; / / переход на новую строку для ввода

end. / / конец программы