1) Вывести Чётные числа с 18 до 62 с использованием оператора цикла "for"
2)Вывести нечётные числа в обратном порядке с 31 до 1 с использованием оператора цикла "for".
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
