Урок 11. Задание 4

Урок 11. Задание 4

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

var i: integer;
begin
    i:=35;
    while i<117 do
    begin
        i:=i+1;
        if((i mod 2)=0)or (i>45)and(i<99)and ((i mod 2)<>0)then
        write(i, '  ');
     end;
end.