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

Question

Информатика: 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

olya2399 · Answer

sums = 0 x = int(input( Введите трёхзначное число: ))sums += x % 10x //= 10sums += x % 10x //= 10sums += xprint( Сумма цифр = ,sums)...

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

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