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

Primary tabs

Submitted by exotick777 on Sat, 08/07/2021 - 22:19

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

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