Урок №11 Задание 4

Урок №11 Задание 4

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

program Pr11_4;
var a:integer;
begin
  a:=35;
  while (a<=117) do
    begin
      if (a mod 2 = 0) then write(a:4);
      if (a>=45) and (a<=99) and (a mod 2<>0) then write(a:4);
      a:=a+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