Question

составить программу и блок схему вывода на экран всех четных двузначных чисел

Answer 1

var i:integer;

begin

for i:=2 to 98 do if (i mod 2)=0 then write(i:3);

end.

 

Увы, ASCII-артом не владею, поэтому составить блок-схему не смогу