Ответы на вопрос:
var a:integer;
Begin
readln(a);
Writeln(a mod 10 + a div 10 mod 10 + a div 10 div 10 mod 10 + a div 1000);
end.
Популярно: Информатика
-
НяnKет01.09.2022 08:17
-
platonnikitos12.08.2022 03:29
-
Cat51405.04.2021 06:45
-
2005SuperMax200518.03.2022 03:29
-
HrenSGori18.09.2022 12:11
-
Jisbihish07.04.2021 00:28
-
burdick9423.03.2022 03:09
-
nelli3710.11.2020 18:41
-
emv6375623.11.2020 01:16
-
toktogulovadanna7718.02.2020 18:39