Задача 4 Урок 11 While
Primary tabs
// Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
program odd; var a: integer; begin a := 35; while (a <= 117) do begin a:= a + 1; if (a mod 2) = 0 then write(a,' ') else if (a >= 45) AND (a <= 99) then if (a mod 2) <> 0 then write(a,' ') end; readln(); end.
// консоль 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 118
- Log in to post comments
- 660 reads
vedro-compota
Sat, 05/01/2021 - 12:15
Permalink
неверное форматирование
неверное форматирование
_____________
матфак вгу и остальная классика =)