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

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

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

var i:integer;

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

  readln();
end.