Ответы на вопрос:
Var n,s: integer; x1,x2,x3,x4: integer; begin write('vvedite n = '); read(n); x1: =n div 1000; x2: =n mod 1000 div 100; x3: =n mod 100 div 10; x4: =n mod 10 div 1; s: =x1+x2+x3+x4; writeln(s); end.
Популярно: Информатика
-
DashaTaylor1118.07.2022 19:11
-
lemon23416.11.2020 02:41
-
димон777705.08.2020 02:47
-
22031982golub20.05.2022 03:09
-
lizon39224.09.2021 16:55
-
ilyacher12326.01.2022 16:28
-
liliyaabramova114.06.2021 09:42
-
lera14mansurova15.09.2022 07:56
-
БогданКК28.01.2023 04:27
-
dashazoriksv26.08.2021 06:34