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

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

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

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