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

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

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

program Variant2;
var b: integer;
begin
  b:= 35;
  repeat
    if (((b mod 2) = 0) AND (b > 35) AND (b < 118))
    OR (((b mod 2) <> 0) AND ((b mod 7) = 0) AND ((b mod 3) = 0)
    AND (b > 45) AND (b < 100)) then
      write(b, ' ');
    b := b + 1;
  until (b = 118);

end.