Question

написать программу в паскале

напечатать все положительные нечётные трёхзначные числа

Answer 1

program rd;
var i:integer;
begin
for i:=100 to 999 do if i mod 2 = 1 then write(i,' ');
end.

Answer 2

так тут и так цикл for

Answer 3

чёт деградирую!