Question

Помогите пожалуйста! (Паскаль)

На числовом промежутке от 10 до 20 вывести по порядку все числа на экран в порядке возрастания (в столбик). Каждое число, выведенное на экран сопроводить записью «четное» или «нечетное»

Answer 1

Ответ:

Объяснение:

program even_odd_numbers;

var

 i: integer;

begin

 for i := 10 to 20 do

 begin

   writeln(i);

   if i mod 2 = 0 then

     writeln('четное')

   else

     writeln('нечетное');

 end;

 readln;

end.