第五课：输入一个数，求它的各位上的数字之和
发表时间：2002-09-19 00:00:00 关键词：奥赛,PASCAL,编程,源码
(点击：) 把这篇文章告诉我的QQ或MSN朋友
program GeWeiHe1(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
repeat
t:=x mod 10;
s:=s+t;
x:=x div 10;
until x=0;
writeln(s);
end.
本站特约顾问律师常州东晟律师事务所朱立律师（电话13915029670，QQ646146109）提醒您：
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！