Задача 6. Урок 10.1.

Задача 6. Урок 10.1.

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

var
  i:integer;
begin

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

  readln();
end.

Консоль:

39  45  51  57  63  69  75  81  87  93  99  105  111  117