Решение задачи №4 из главы 11

Задача №4 из главы 11

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

Решение №1

var i:integer;
begin
  writeln('Ot 35 do 117');
  i := 35; // начальное значение счетчика(диапозона)
  while i <= 117 do //проверка выражения
  begin
    i:=i + 1;  //задаем шаг
    if (i mod 2) = 0 then   //если четное
      write(i, ' '); // выводим в одну строку с пробелом
  end;
  writeln();
  writeln('Ot 45 do 99');
    i :=45; // начальное значение счетчика(диапозона)
    while i <= 99 do  //проверка выражения
  begin
    i:=i+1;  //задаем шаг
    if (i mod 2) = 1 then  //если нечетное
    write(i, ' ');
  end;
  readln();
end.
Решение №2
var i:integer;
begin
  writeln('Ot 35 do 117');
  i := 35; // начальное значение счетчика(диапозона)
  while i <= 117 do //проверка выражения
  begin
    i:=i + 1;  //задаем шаг
    if  (i mod 2) = 0 then   //если четное
      write(i, ' ') // выводим в одну строку с пробелом
    else
      if ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
       AND ((i mod 2) = 1)) then // и если нечетное
         write(i, ' ');
  end;
  readln();
end.