Урок 10.1 Задача 7

Урок 10.1 Задача 7

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

Решение:

var i:integer;
begin
      for i:=35 to 117 do
        if (i mod 2 = 0) then
          writeln(i, ' ');
      for i:=45 to 99 do
        if (i mod 2 <> 0) then
          writeln(i, ' ');
  readln();
end.


var i:integer;
begin
      for i:=35 to 117 do
        if (i mod 2 = 0)and(i>=35)and(i<=117) then
          writeln(i, ' ')
        else if(i mod 2 <> 0)and(i>=45)and(i<=99) then
          writeln(i, ' ');
  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