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

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

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

Решение:

var i:integer;
begin
      for i:=35 to 117 do
        if (i mod 3 = 0) and (i mod 2 <> 0) then
          writeln(i, ' ');
  readln();
end.    

Консоль:

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