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

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

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

var i: integer;

begin
  while (i<=117) do
  begin
    i:=i+1;
    if (45<=i)and(i<=99)and((i mod 2)=1)or(35<=i)and(i<=117)and((i mod 2)=0) then
      write(i, ' ');
  end;
  writeln();
  writeln('<<konec>>');

  readln();

end.

Решение

36 38 40 42 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 102 104 106 108 110 112 114 116