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

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

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

1.

var
  i:integer;
begin
  for i:=35 to 117 do
  if ((i mod 2)=0) then
  write(i,'  ');

  writeln();

  for i:=45 to 99 do
  if ((i mod 2)=1) then
  write(i,'  ');

  readln();
end. 

Консоль:

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