Question

Решить в PascalABC
С помощью цикла for вывести последовательность нечётных чисел от 1 до 10.

Answer 1

var i :integer;

begin

for i:=1 to 10 do

if i mod 2  <> 0  Then writeln(i);  

end.