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

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

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

Вариант с двумя циклами:

program dvachasanochi;
var a:integer;
begin
  a := 35;
  while ((a <= 117) and (a >= 35)) do
  begin
    if ((a mod 2) = 0) then
      writeln(a, ' ');
    a := a + 1;
  end;

  a := 45;
  while ((a <= 99) and (a >= 45)) do
  begin
    if ((a mod 2) <> 0) then
      writeln(a, ' ');
    a := a + 1;
  end;
  readln();
end.  

Вариант с одним циклом

program dvachasanochi;
var a:integer;
begin
  a := 35;
  while (a <= 117) do
  begin
    if (((a mod 2) = 0) AND (a <= 117) AND (a >= 35)) OR (((a mod 2) <> 0)
    AND (a <= 99) and (a >= 45)) THEN
      writeln(a, ' ');
    a := a + 1;
  end;
  readln();
end.