Задача 4 Урок 11
Primary tabs
Решите с помощью цикла 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
- Log in to post comments
- 481 reads