Задача 7 Урок 12.1
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.
var a: integer; begin a:= 35; while a < 116 do begin repeat a:= a + 1; until (a mod 3 = 0) AND (a mod 6 = 0); if a < 118 then writeln(a); end; readln(); end.
Вывод:
36 42 48 54 60 66 72 78 84 90 96 102 108 114
// решила, но код получился максимально некрасивым. Хотела бы узнать, как лучше решить задачу
- Log in to post comments
- 618 reads
funguself
Sun, 02/25/2024 - 10:37
Permalink
Другое решение
Другое решение
vedro-compota
Sun, 02/25/2024 - 11:32
Permalink
i:= 35;
тут единственное замечание - если бы 35 подходило под условие, но мы бы его пропустили, все-таки лучше сначала проверять очередное число и только потом накручивать счетчик)
_____________
матфак вгу и остальная классика =)