Задача 4 Урок 11

Задача 4 Урок 11:

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

var a: integer;
begin
  a:=35;

  while (a<117) do
  begin
    if ((a mod 2)=0) then
      write(a, '- chetnoe, ');

    if ((a>=45) and (a<=99)
      and ((a mod 2)=1)) then
      write(a, '- nechetnoe, ');
      a:=a+1;
  end;

  readln();
end. 

КОНСОЛЬ:

36- chetnoe, 38- chetnoe, 40- chetnoe, 42- chetnoe, 44- chetnoe, 45- nechetnoe, 46- chetnoe, 47- nechetnoe, 48- chetnoe, 49- nechetnoe, 50- chetnoe, 51- nechetnoe, 52- chetnoe, 53- nechetnoe, 54- chetnoe, 55- nechetnoe, 56- chetnoe, 57- nechetnoe, 58- chetnoe, 59- nechetnoe, 60- chetnoe, 61- nechetnoe, 62- chetnoe, 63- nechetnoe, 64- chetnoe, 65- nechetnoe, 66- chetnoe, 67- nechetnoe, 68- chetnoe, 69- nechetnoe, 70- chetnoe, 71- nechetnoe, 72- chetnoe, 73- nechetnoe, 74- chetnoe, 75- nechetnoe, 76- chetnoe, 77- nechetnoe, 78- chetnoe, 79- nechetnoe, 80- chetnoe, 81- nechetnoe, 82- chetnoe, 83- nechetnoe, 84- chetnoe, 85- nechetnoe, 86- chetnoe, 87- nechetnoe, 88- chetnoe, 89- nechetnoe, 90- chetnoe, 91- nechetnoe, 92- chetnoe, 93- nechetnoe, 94- chetnoe, 95- nechetnoe, 96- chetnoe, 97- nechetnoe, 98- chetnoe, 99- nechetnoe, 100- chetnoe, 102- chetnoe, 104- chetnoe, 106- chetnoe, 108- chetnoe, 110- chetnoe, 112- chetnoe, 114- chetnoe, 116- chetnoe,