作业帮 > 综合 > 作业

编写程序,从键盘输入一个正整数,计算该数的各个位数字之和,并显示结果.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 06:22:48
编写程序,从键盘输入一个正整数,计算该数的各个位数字之和,并显示结果.
fpc:
var n:string;
a,b,i:longint;
begin
read(n);
b:=0;
a:=length(n);
for i:=1 to a do
b:=ord(n[i])-ord('0')+b;
writeln(b);
end.