?>
Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 4 Нужна только блок схема begin var i, s:integer; s:=0; For i:=100 to 999 do if i mod 4 = 0 then inc(s, i); write('Сумма трехзначных чисел, кратных 4=', s); readln end.
Ответы
ответ в прикрепленном скриншоте :)
Объяснение:
начало - начало программы
s := 0 - переменная s = 0
i := 100, 999, 1 - цикл for, i := 100, идём до 999 с шагом в 1
i mod 4 -
нет - возвращаемся к циклу;да - s := s + i + возвращаемся к циклу.s - выводим значение переменной s
конец - конец программы