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

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

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

var
  i: integer;
//  j: integer;
begin
  {i:= 35;
   while (i <= 117) do
         begin
             if ((i mod 2) = 0)then
                write(i, ', ');
             i:= i + 1;
         end;
   writeln();
   j:= 45;
   while  (j <= 99) do
         begin
             if ((j mod 2) <> 0) then
                write (j, ', ');
             j:= j + 1;
         end;}
  i:= 35;
  while (i <= 117) do
        begin
          if ((i mod 2) = 0) then
             write (i, ', ');
          writeln();
          if (i >= 45) and ((i mod 2) <> 0) and (i <= 99) then
             write (i, ', ');
          i:= i + 1;
        end;
  readln();
end.