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

Primary tabs

Submitted by naveang on Mon, 03/21/2022 - 12:18

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

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

  end.