Ответы на вопрос:
Program for_znaniya; var n, i, c, t, sum: integer; begin readln(n); c : = 0; for i: = 1 to n do begin sum : = 0; t : = i; repeat sum : = sum + t mod 10; t : = t div 10; until t = 0; if (i mod sum) = 0 then inc(c) end; writeln(c) end.
Популярно: Информатика
-
prostoliiiii30.07.2022 01:43
-
карина233330.10.2021 12:56
-
aleks10210214.01.2020 20:46
-
rostikstorozhev17.10.2022 08:26
-
Учёныймастер0626.03.2022 14:20
-
СерсеяЛаннистер02.06.2023 13:09
-
6155124.01.2020 09:19
-
Helluing14.02.2023 17:38
-
annatiko198430.11.2020 19:39
-
archakova6502.03.2020 22:50