Ответы на вопрос:
Program al; var a,b,c,d,n,s: integer; begin writeln('n='); readln(n); s: =0; a: =n mod 10; b: =n mod 100 div 10; c: = n div 100 mod 10; d: =n div 1000; s: =a+b+c+d; writeln('s=',s); readln; end.
Популярно: Информатика
-
KARINALEMANN04.02.2020 17:51
-
скорпион6720.11.2022 11:47
-
bkmz98718.01.2020 02:58
-
Deencast25.10.2022 00:15
-
favorit1997126.10.2022 22:38
-
Lider4k22.11.2020 00:10
-
girrrrl21.10.2021 19:21
-
damirsemenov216.03.2021 04:28
-
Balans45609.12.2020 07:13
-
влад231316.10.2021 19:22