Решение задачи 5 из главы 10.1

Решение задачи 5 из главы 10.1

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

program Project5;
var i:integer;
begin
   for i:= 35 to 117 do
       begin
         if ((i >= 35) AND (i <= 117) AND ((i mod 2) = 0)) then
            write(i, ' ')
         else
           if ((i >= 45) AND (i <= 99) AND ((i mod 2) = 1)) then
              write(i, ' ');
       end;
  readln();readln();
end.
vedro-compota's picture

есть избыточные условия, просьба исправить

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

program Project5;
var i:integer;
begin
   for i:= 35 to 117 do
   begin
       if ((i mod 2) = 0) then
           write(i, ' ')
       else if ((i >= 45) AND (i <= 99) AND ((i mod 2) = 1)) then
           write(i, ' ');
   end;
readln();readln();
end.