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

Primary tabs

Submitted by Levvv on Tue, 12/28/2021 - 14:01

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

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