Задание 5 Урок 10.1
Primary tabs
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i: integer; begin for i := 35 to 117 do if (i mod 2 = 0) then write(i, ' '); writeln(); for i := 45 to 99 do if (i mod 2 = 1) then write(i, ' '); writeln(); writeln('============'); for i := 35 to 117 do if (i mod 2 = 0) then write(i, ' ') else if ((i >= 45) and (i <= 99)) 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 ============ 36 38 40 42 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 102 104 106 108 110 112 114 116
- Log in to post comments
- 454 reads