Ответы на вопрос:
Var n,s: longint; begin write('введите натуральное четырехзначное число: '); readln(n); s: =n mod 10; n: =n div 10; s: =s+n mod 10; n: =n div 10; s: =s+n mod 10; n: =n div 10; s: =s+n; writeln('сумма цифр введенного числа равна ',s) end. тестовое решение: введите натуральное четырехзначное число: 1745 сумма цифр введенного числа равна 17
Популярно: Информатика
-
Koki200626.10.2021 02:41
-
manya4804.06.2023 01:38
-
huxgehd26.04.2022 16:46
-
katerinasem25127.06.2020 16:53
-
Vishenka33318.02.2020 12:51
-
HardFunny27.05.2023 13:25
-
kris751018.02.2020 13:57
-
Gaxling06.04.2023 11:22
-
marjanazagurska07.06.2021 17:28
-
sashamaslak13.06.2022 17:28