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

Задача 5 урок 10.1

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

program z5;
var i :integer;
begin
    for i:=35 to 117 do
        if ((i mod 2)=0) then
            write(i,' ');
        if ((i mod 2)=1) and (i>=45) and (i<=99);
            write(i,' ');
    readln();
end.   

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