Program Su,Cifr; Var X, Sum:=0;
Sum:=Sum + X mod 10;
X:=X div 10;
Sum:=Sum + X mod 10
X:=X div 10;
Sum:Sum + X;
Write (' Сумма цифр = ' , Sum)
End

Belcard    1   24.01.2021 21:17    5