Pascal Урок 11 задача 4

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

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

Решение:

program U11Z4H1;
var a: integer;
begin
  a:=35;
  while a<117 do
  begin
    a:=a+1;
    if((a mod 2)=0)then
      writeln(a, '  ');
    writeln();

    if(a>45)and(a<99)and
      ((a mod 2)<>0)then
       writeln(a, '  ');
  end;
  readln();
end.        
vedro-compota's picture

код отформатирован неверно

_____________
матфак вгу и остальная классика =)

Исправлено

vedro-compota's picture

приведите теперь решение с одним общим условием (чтобы внутри тела цикла был 1 if)

_____________
матфак вгу и остальная классика =)