Ответы на вопрос:
Function numsum(n: integer): integer; var d: integer; begin d: =n mod 10; if d=n then numsum: =n else numsum: =d+numsum(n div 10) end; var a,b,d: integer; begin write('введите два числа: '); read(a,b); d: =numsum(a)-numsum(b); if d> 0 then writeln('сумма цифр в первом числе больше') else if d< 0 then writeln('сумма цифр во втором числе больше') else writeln('сумма цифр в обоих числах одинакова') end.
Популярно: Информатика
-
Ксения1111111111111224.06.2023 00:26
-
kate05080421.09.2020 22:39
-
xPinkiPai23.05.2020 16:26
-
4chanus01.07.2021 09:11
-
dggkfuh25.04.2022 00:39
-
Антон1111111111231.05.2022 22:44
-
ника276219.11.2022 23:20
-
smile150603.08.2022 02:44
-
konkina07.03.2020 13:30
-
Zekkin20.02.2021 02:25