望高手相助Pascal中一道求各位数字的和的问题答案

Description （问题）

输入一个数字(数据保证这个数在0和80000之间)，求它的各位数字的和。

Input （输入）

输入一个整数n。

Output （输出）

输出它各位数字的和。

Sample Input （例子，输入）

12

Sample Output （例子，输出）

3

要用Pascal解决，答题需要谨慎，精细！

望各位高手相助，最好能解释一下！

var
 x:string;
 ans,k,i:longint;
 v:integer;
begin
 readln(x);
 ans:=0;
 for i:=1 to length(x) do
  begin
   val(copy(x,i,1),k,v);
   inc(ans,k);
  end;
 writeln(ans);
end.

 

一种比较偷懒的方法：

var s:string;

    sum,i:integer;

begin

readln(s);

for i:=1 to length(s) do

sum:=sum+ord(s[i])-ord('0');

writeln(sum);

end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息