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

Задача 5 Глава 11

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

Решение:

// Решение 1
var i, x : integer;
begin
  i := 36;
  x := 45;

  while i < 117 do
  begin
    writeln(i, ' even');
    i += 2;
  end;
  while x <= 99 do
  begin
    if (x mod 2 <> 0) then
      writeln(x, ' odd');
    x += 1;
  end;

  readln();
end.

//Решение 2
var i : integer;
begin
  i := 35;

  while i < 117 do
  begin
    if (i mod 2 = 0) then
      writeln(i, ' even')
    else if (i >= 45) AND (i <= 99) then
      writeln(i, ' odd');
    i += 1;
  end;

  readln();
end. 

Консоль:

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