Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 4Нужна только блок схемаbeginvar i,s:integer;s:=0;For i:=100 to 999 doif i mod 4 = 0 then inc(s,i);write('Сумма трехзначных чисел, кратных 4=',s);readlnend.

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

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

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

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

i mod 4 -

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

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

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