Ответы на вопрос:
Var a: integer; begin write('введите четырёхзначное число: '); readln(a); writeln('s = ',(a div 1000)+(a div 100) mod 10+(a div 10) mod 10+a mod 10); end.
Популярно: Информатика
-
zhasik133724.07.2020 22:40
-
ghdvbeudv21.10.2021 11:31
-
aIinakormiIkina29.05.2020 06:00
-
cehrjdfyflz160309.04.2020 08:41
-
Хачачуля31.05.2023 19:08
-
mariy3025.10.2020 11:13
-
anchertow27.02.2021 21:02
-
akmallobanov10.06.2021 18:27
-
vladEfimenko124.05.2020 00:20
-
Дари23317.01.2020 13:23