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

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

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

var i:integer;

begin
  i := 35;
  while i <= 117 do
      begin
        if i mod 2 = 0 then
           write(i , ' ')
        else
          if (i >= 45) and (i <= 99) then
            write(i , ' ');
            i := i + 1;
      end;
  readln();
end.