Решение 2 Задача 5 Урок 10.1
Primary tabs
Выведите на экран, все четные числа от 35 до 117 и нечетные числа,
лежащие в диапазоне от 45 до 99.
Указание: перепишите с использованием одного цикла,
в теле которого составьте логическое выражение
var i: integer; begin for i := 35 to 117 do begin if ((i mod 2) = 0) then write(i, ' ') else if ((i > 45) and (i < 99) and ((i mod 2) <> 0)) then write(i, ' '); end; readln(); end.
КОНСОЛЬ
36 38 40 42 44 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 100 102 104 106 108 110 112 114 116
- Log in to post comments
- 746 reads