Урок 12.1 Задание 8

Задание 8 Урок 12.1

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

var i,a: integer;
begin
  a:=117;
  i:= 35;
  repeat
    if ((i>35) and (i<117) and (i mod 2 = 0)) or ((i mod 3 = 1) and (i>45) and (i<99)and (i mod 7 = 1)) then
    write (i, ' ');
    i:= i+1;
  until (i>a);
readln();
end.

Консоль:

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 85 86 88 90 92 94 96 98 100 102 104 106 108 110 112 114 116