5 задача урок 10.1

5 задача урок 10.1

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

1 вариант решения

var i:integer;
begin
  for i:=35 to 117 do // цикл по [35..117]
   if ((i mod 2) = 0) then // если четное
     write(i, ' ');

  writeln(); // перенос строки

  for i:=45 to 99 do // цикл по [45..99]
    if ((i mod 2) = 1) then // если не четное
     write(i, ' ');

  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
     for i:=35 to 117 do
      begin
         if(i mod 2) = 0 then
          write('chetnoe',i, ' ');
          writeln();  //перенос строки
          if ((i >= 45)AND (i <= 99)AND((i mod 2) = 1)) then
            write('ne chetnoe',i, ' ');
      end;
 readln();
end.

вывод консоли

ne chetnoe89 chetnoe90

ne chetnoe91 chetnoe92

ne chetnoe93 chetnoe94

ne chetnoe95 chetnoe96

ne chetnoe97 chetnoe98

ne chetnoe99 chetnoe100

chetnoe102

chetnoe104

chetnoe106

chetnoe108

chetnoe110

chetnoe112

chetnoe114

chetnoe116