Задание 5 Урок 10.1

Задание 5 Урок 10.1:

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

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, ' ');

  writeln();
  writeln('============');

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

  readln();
end. 

Консоль:

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