编写程序,从键盘输入一个正整数,计算该数的各个位数字之和,并显示结果.
1人问答
问题描述：
编写程序,从键盘输入一个正整数,计算该数的各个位数字之和,并显示结果.
陈子平回答：
fpc:
varn:string;
a,b,i:longint;
begin
read(n);
b:=0;
a:=length(n);
fori:=1toado
b:=ord(n[i])-ord('0')+b;
writeln(b);
end.
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 