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

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

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

-------------------------------------------------------------------------------

Решение задачи 1 вариант

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

------------------------------------------------------------------------------

Решение задачи 2 вариант

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