Урок 12.1 Задача 4
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.
var e, r: integer; begin e := 35; r := 117; repeat if (117 mod 2) = 0 then if (117 mod 3 and 6) = 0 then writeln(e); until (e = r) ; readln(); end.
- Log in to post comments
- 732 reads
vedro-compota
Tue, 04/26/2022 - 20:20
Permalink
1) Ответить на вопрос: какие
_____________
матфак вгу и остальная классика =)
kuznmax
Mon, 05/02/2022 - 13:44
Permalink
№1
vedro-compota
Tue, 05/10/2022 - 17:19
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)