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

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

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

1.

var i: integer;
begin
  i:= 35;
  while i<=117 do
  begin
    if ((i mod 2) = 0) then
    write(i, '   ');
    i:=i+1;
  end;
   writeln();
   i:= 45;
   while i<=99 do
  begin
    if ((i mod 2) = 1) then
    write(i, '   ');
    i:=i+1;
  end;

  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

2.

var i: integer;
begin
  i:= 35;
  while i<=117 do
  begin
    if ((i mod 2) = 0) then
    write(i, '   ');
    i:=i+1;

    if (i>=45) and (i<=99)
    and ((i mod 2) = 1) then
    write(i, '   ');
  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