不是VIP会员,不能显示答案

题目解答

题目:
program ex4;
var n,t1: longint;
procedure sub1(x:longint; var t:integer);
begin
repeat
t:=t+x mod 10; x:=x div 10;
until x=0
end;
begin
readln(n);
sub1(n,t1);
write(t1);
end.
输入:48375

输出:27
考点:
分析:
解答:
评论:
老师: