Вывести ** экран в столбик все четные трехзначные числа, меньшие 200. Начертить...

Question

Вывести на экран в столбик все четные трехзначные числа, меньшие 200. Начертить блок-схему задачи в тетради! Написать программу. 100 102 104…
в программе кумир

Answer 1

Program qq;
var i:byte;
begin 
 for i:= 100 to 200 do
 if odd (i) = False then 
  writeln (i:4);
end.