UC知道turbo pascal 高手来看看 补充程序！！！
来源：百度知道 编辑：UC知道 时间：2024/05/31 02:20:22
输入一个小于32767的整数，把该数的各数位上的数累加起来。
s:=0
repeat
t:=________;
a:=INT(t/10);
d:=________;
s:=s+d;
UNTIL________
s:=0
repeat
t:=________;
a:=INT(t/10);
d:=________;
s:=s+d;
UNTIL________
这题。。。很畸形。。。
同学你输入的是哪一个……
t是输入数据吧？
s=0；
repeat
t:=t/10;
a:=int(t/10);
d:=int((t-a)*10)
s:=s+d;
until int(t)=0;
下次提问时把题目说清楚！！！
看不懂。。。