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

Locko3    2   20.11.2020 22:00    2