Составить блок схему к этой программе: var s,i:integer;
begin
s:=0;
for i:=2 to 1000 do
if i mod 2=0 then s:=s+i;
write('Сумма равна', s);
readln;
end.
(условие - найти сумму четных чисел от 2 до 1000)

vlada041104    1   21.03.2020 23:21    1