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

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

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

Вариант_1:

program u12z7;
var i, p: integer;
    b: boolean;
begin
  b:= true;
  i:= 35;
  p:=45;

    repeat

      if (i mod 2 = 0) then
        write(i, ' ');
    i:=i+1;

    until (i >= 117);

    repeat

      if ((p mod 2 = 1) and (p mod 7 = 0)) and (p mod 3 = 0) then
        write(p, ' ');
    p:=p+1;

    until (p >= 99);

    write(i, ' ', p);
  readln();
end.

Вариант_2:

program u12z7_2;
var i : integer;

begin

  i:= 35;

    repeat

      if (i mod 2 = 0) or ((i mod 2=1) and (99 > i) and (i > 45) and (i mod 7 = 0) and (i mod 3 = 0)) then
        write(i , ' ');
    i:= i + 1;

    until (i >= 117);

  readln();
end.