Решение 1 Задача 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, ' ') ;
        end;

    writeln();
    writeln();

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

    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