Задача 6 Урок 10.1

Урок 10.1

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

var i: integer;

begin

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

    readln();

end.

КОНСОЛЬ

36 39 42 45 47 48 49 51 53 54 55 57 59 60 61 63 65 66 67 69 71 72 73 75 77 78 79 81 83 84 85 87 89 90 91 93 95 96 97 99 102 105 108 111 114 117