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

Primary tabs

Submitted by Lena on Sat, 01/01/2022 - 08:27

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

var i:integer;

begin
  i:=35;
  repeat
    if(i mod 6 = 0) then write(i,' ');
    i:=i+1;
  until (i=117);
end.

Консоль:

36 42 48 54 60 66 72 78 84 90 96 102 108 114