ПОМОГИТЕ С ИНФОРМАТИКОЙ!! вывести ** экран четные нечётные натуральные числа от 19 по...

Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ!! вывести на экран четные нечётные натуральные числа от 19 по убыванию.на фото пример ​

---

Answer 1

Ответ:

четные:

program Even;

var a: integer;

begin

   a := 19;

   while a > 0 do

       begin

           if a mod 2 = 0 then writeln(a);

           a := a - 1;

       end;

end.

нечетные:    

program Odd;

var a: integer;

begin

   a := 19;

   while a > 0 do

       begin

           if a mod 2 = 1 then writeln(a);

           a := a - 1;

       end;

end.

Объяснение: