问题描述: 编写程序,从键盘输入一个正整数,计算该数的各个位数字之和,并显示结果. 1个回答 分类:综合 2014-10-11 问题解答: 我来补答 fpc:var n:string;a,b,i:longint;beginread(n);b:=0;a:=length(n);for i:=1 to a dob:=ord(n[i])-ord('0')+b;writeln(b);end. 展开全文阅读