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

Primary tabs

Submitted by naveang on Mon, 03/21/2022 - 16:55

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var i: integer;
  begin
    i:=35;
    repeat
      if ((i mod 6)=0) then
      writeln(i);
      i:=i+1;
    until (i>117);
    readln();
  end.