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

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

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

Решение:

var i:integer;
begin
  i:=35;
  while (i<=117) do
  begin
    if ((i mod 2) =0) then
      writeln(i)
    else if (i>=45) and (i<=99) and ((i mod 2) =1) then
      writeln(i);
    i := (i + 1);
  end;
  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