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

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

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

Решение:

var i:integer;
begin
     i:=35;
     while (i<117) do
           begin
                i:=i+1;
                if((i mod 2)=0)then
                write('chetnoe :',i, ' ');
           end;
     i:=45;
     while (i<99) do
           begin
                i:=i+1;
                if ((i mod 2) = 1) then
                write('nechetnoe :',i, ' ');
           end;
readln();
end.  

Консоль:

chetnoe :36 chetnoe :38 chetnoe :40 chetnoe :42 chetnoe :44 chetnoe :46 chetnoe :48 chetnoe :50 chetnoe :52 chetnoe :54 chetnoe :56 chetnoe :58 chetnoe :60 chetnoe :62 chetnoe :64 chetnoe :66 chetnoe :68 chetnoe :70 chetnoe :72 chetnoe :74 chetnoe :76 chetnoe :78 chetnoe :80 chetnoe :82 chetnoe :84 chetnoe :86 chetnoe :88 chetnoe :90 chetnoe :92 chetnoe :94 chetnoe :96 chetnoe :98 chetnoe :100 chetnoe :102 chetnoe :104 chetnoe :106 chetnoe :108 chetnoe :110 chetnoe :112 chetnoe :114 chetnoe :116 nechetnoe :47 nechetnoe :49 nechetnoe :51 nechetnoe :53 nechetnoe :55 nechetnoe :57 nechetnoe :59 nechetnoe :61 nechetnoe :63 nechetnoe :65 nechetnoe :67 nechetnoe :69 nechetnoe :71 nechetnoe :73 nechetnoe :75 nechetnoe :77 nechetnoe :79 nechetnoe :81 nechetnoe :83 nechetnoe :85 nechetnoe :87 nechetnoe :89 nechetnoe :91 nechetnoe :93 nechetnoe :95 nechetnoe :97 nechetnoe :99

Решение 2:

var i:integer;
begin
  i:= 35;
  while (i <= 117) do
  begin
    if ((i mod 2) = 0) then
    begin
       writeln('chetnoe: ',i, ' ');
       i:=i+1;
    end;
    if ((i >= 45) AND (i <=99) AND ((i mod 2) = 1)) then
         write('nechetnoe: ',i, ' ');
         i:=i+1;
  end;
readln();
end. 

Консоль:

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