Pascal Урок 10 задача 5 Решение

Урок 10 задача 5

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

program U10Z5;
var a: integer;
begin
  for a:=35 to 117 do
    if((a mod 2)=0)then
      write(a, ' ');
      writeln();
  for a:=45 to 99 do
    if((a mod 2)<>0)then
      write(a, ' ');
  readln();
end.    

program U10Z5;
var a: integer;
begin
  for a:=35 to 117 do
  begin
    if (a>=35)and((a mod 2)=0)then
      write(a, ' ');
      writeln();
    if (a>=45)and(a<=99)
    and((a mod 2)<>0)then
      write(a, ' ');
  end;
  readln();
end.