Ответы на вопрос:
Var i,n,sum: integer; s,d: string; a: longint; begin writeln('введите целое положительное число а< =10^9'); readln(a); s: = a.tostring(); n: = length(s); for i: =1 to n do begin d: = copy(s,i,1); sum: = sum + strtoint(d); end; write('sum = ',sum); end.
Популярно: Информатика
-
ник399919.11.2022 01:04
-
ac123sjdjhdndndndh15.08.2021 03:58
-
Стас66622805.05.2022 02:49
-
LeklA08.09.2022 21:40
-
Сmetana3421.09.2022 15:41
-
samusev315.07.2022 10:40
-
Doshik13108.04.2022 18:17
-
КoТuK24.07.2021 07:34
-
66665619.05.2022 20:27
-
шалабам31.12.2021 20:51