Ответы на вопрос:
Var k,a,b,c,l: integer; begin readln(k); a: =k div 100; b: =k div 10 mod 10; c: =c mod 10; l: =a*b*c; if (k mod l=0) then writeln(k); end.
Популярно: Другие предметы
-
germandoter10.08.2020 09:32
-
105195hhafhotpb27.11.2021 17:37
-
рома125414.03.2022 02:49
-
Неизвестный1778130.12.2020 06:53
-
ladybird116.03.2020 15:53
-
hcg111.07.2020 15:31
-
Агааемгов11.07.2022 20:15
-
КристинаШпиц22.10.2021 13:27
-
TimRus162rusg05.09.2021 16:05
-
Сливенко08.03.2022 20:26