Урок 12.1 Задание 7
Primary tabs
Выведите на экран, все четные числа, делящиеся на 3
и на 6
нацело , лежащие в диапазоне от 35 до 117.
var i,a: integer; begin a:=117; i:= 35; repeat if ((i mod 3 = 0) and (i mod 6 = 0)) then write (i, ' '); i:= i+1; until (i>a); readln(); end.
Консоль:
36 42 48 54 60 66 72 78 84 90 96 102 108 114
- Log in to post comments
- 385 reads
vedro-compota
Sun, 01/29/2023 - 13:32
Permalink
+
+
_____________
матфак вгу и остальная классика =)