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

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

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var
  i:integer;
begin

  for i:=35 to 117 do
  if ((i mod 3)=0) then
  write(i,'  ');
  writeln();
  for i:=45 to 99 do
  if ((i mod 2)=1) then
  write(i,'  ');

  readln();
end.

Консоль:

36  39  42  45  48  51  54  57  60  63  66  69  72  75  78  81  84  87  90  93  96  99  102  105  108  111  114  117
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