191问答库 > 编写函数computNum( int num)，它的功能是计算任意输入的一个正整数的各位数字之和，结果由函数返回

编写函数computNum( int num)，它的功能是计算任意输入的一个正整数的各位数字之和，结果由函数返回

2025-02-25 01:24:23

推荐回答（1个）

回答1：

//求一个正整数的各位数字之和 .Delphi /Pascal代码。
Function ComputNum(aInt: integer):integer
var ii:integer;
ResultInt:integer;
begin
ResultInt:=0;
if aInt<=0 then
begin
ResultInt:=0;
end
else
begin
for ii:=1 to length(IntToStr(aInt)) do
begin
ResultInt:=ResultInt+StrToint(Copy(IntToStr(aInt),ii,1));
end;
end;

Result:=ResultInt;
end;

-----------------------------------
PS: 早说用C嘛，而且这麼简单的还问，参考一下就可以写出来了。早知道就不浪费表情了。