Решение 2 Задача 5 Урок 10.1

Урок 10.1

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

var i: integer;

begin

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

    readln();

end.

КОНСОЛЬ

36 38 40 42 44 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 100 102 104 106 108 110 112 114 116