1) Вывести Чётные числа с 18 до 62 с использованием оператора цикла "for" 2)Вывести нечётные числа в обратном порядке с 31 до 1 с использованием оператора цикла "for".
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.
Не нашли ответ?
Похожие вопросы