Question

1) Вывести Чётные числа с 18 до 62 с использованием оператора цикла "for"
2)Вывести нечётные числа в обратном порядке с 31 до 1 с использованием оператора цикла "for".

Answer 1

1)
var i:integer;
begin
for i:=18 to 62 do
 if i mod 2 = 0 then write(i,' ');
end.
2)
var i:integer;
begin
for i:=31 downto 1 do
 if i mod 2 = 1 then write(i,' ');
end.