Question

Составить программу, используя оператор цикла с параметром. Из интервала [0;5) вывести на печать нечётные числа,каждое с новой строки.

Answer 1

program raf105;

var i: integer;

begin

i:= 0;

while i < 5 do

begin

 if (i mod 2 <> 0)

   then writeln(i);

 i+= 1;

end;

end.

Pascal ABC 3.4.2.