Ответы на вопрос:
var a,b,c,d,x,res: integer;
begin
readln(x);
a: =x div 1000;
b: =x mod 10;
c: =x div 100 mod 10;
d: =x mod 100 div 10;
res: =a+b+c+d;
writeln(res);
readln;
end.
Популярно: Информатика
-
myxa00mop19.07.2022 00:00
-
arinab01p0c2kd30.07.2022 03:35
-
TheJurasikBint16.05.2023 13:37
-
gltomilovglebnopi30.08.2020 12:08
-
жания11207.01.2021 05:22
-
FedorShar2804.11.2022 17:10
-
Амина950521.10.2022 08:07
-
PWBC12.08.2021 00:16
-
yamarinaigorp00vfk29.03.2023 08:28
-
yana102811.04.2023 18:22