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

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

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

Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

program project1;
var numb:integer;

begin
numb:=35;
  repeat
    numb:=numb+1;
    if((numb>35)and(numb mod 2=0))then
      writeln(numb)
    else if((numb>45)and(numb<99)and(numb mod 7=0)and(numb mod 3=0)) then
      writeln(numb);
  until (numb>116);
readln();
end.