Задача 5 Урок 10

Задача 5 Урок 10

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

var i:integer;
begin
  for i:=35 to 117 do
   begin
    if ((i mod 2)=0) then
       writeln(i,' ')
    else
       if (i>=45) and (i<=99) and ((i mod 2)=1) then
          writeln(i,' ');
   end;
  readln();
end.