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

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

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

Решение:

var a,i:integer;
begin
for i:= 35 to 117 do
    if ((i>= 35) AND (i<= 117) AND ((i mod 3)=0)) OR ((i>=45) AND (i<=99) AND ((i mod 2)=1)) then
      writeln(i);
readln();
end.