Question

Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 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.

Answer 1

Ответ в прикрепленном скриншоте :)

Объяснение:

начало - начало программы

s := 0 - переменная s = 0

i := 100, 999, 1 - цикл for, i := 100, идём до 999 с шагом в 1

i mod 4 -

• нет - возвращаемся к циклу;
• да - s := s + i + возвращаемся к циклу.

s - выводим значение переменной s

конец - конец программы