Задача 5 Урок 10.1

Задача 5 Урок 10.1:

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

Решение 1:

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

Вывод консоли 1 :

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('nechetnoe:',i, ' ');
   end;
   readln();
end.  

Вывод консоли 2:

chetnoe:36

chetnoe:38

chetnoe:40

chetnoe:42

chetnoe:44

nechetnoe:45 chetnoe:46

nechetnoe:47 chetnoe:48

nechetnoe:49 chetnoe:50

nechetnoe:51 chetnoe:52

nechetnoe:53 chetnoe:54

nechetnoe:55 chetnoe:56

nechetnoe:57 chetnoe:58

nechetnoe:59 chetnoe:60

nechetnoe:61 chetnoe:62

nechetnoe:63 chetnoe:64

nechetnoe:65 chetnoe:66

nechetnoe:67 chetnoe:68

nechetnoe:69 chetnoe:70

nechetnoe:71 chetnoe:72

nechetnoe:73 chetnoe:74

nechetnoe:75 chetnoe:76

nechetnoe:77 chetnoe:78

nechetnoe:79 chetnoe:80

nechetnoe:81 chetnoe:82

nechetnoe:83 chetnoe:84

nechetnoe:85 chetnoe:86

nechetnoe:87 chetnoe:88

nechetnoe:89 chetnoe:90

nechetnoe:91 chetnoe:92

nechetnoe:93 chetnoe:94

nechetnoe:95 chetnoe:96

nechetnoe:97 chetnoe:98

nechetnoe:99 chetnoe:100

chetnoe:102

chetnoe:104

chetnoe:106

chetnoe:108

chetnoe:110

chetnoe:112

chetnoe:114

chetnoe:116