Ответы на вопрос:
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.
Популярно: Информатика
-
panerik611.04.2022 10:15
-
alisa33204.10.2021 08:35
-
artem87728.02.2023 15:50
-
Евгения2204200231.08.2020 11:10
-
Kakation26.03.2022 07:06
-
sasha2211423.10.2022 09:27
-
yecgaass12121224.03.2023 13:01
-
elizavetawwwpotex17.11.2022 09:25
-
вика384406.10.2021 10:52
-
CloudySun29.03.2023 12:53