Question

输入一个整数n,求它各位上的数字和 pascal

同题··n<30000 free pascal

Answer 1

var
n,s:longint;
begin
read(n);
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
end.
自创！

Answer 2

var
n,ans:integer;
begin
readln(n);
ans:=0;
while n<>0 do
begin
ans:=ans+n mod 10;
n:=n div 10;
end;
writeln(ans);
end.

Answer 3

给一个函数吧：
function weishu(n:qword):word;
var
s:string;
i:byte;
function v(s:string):byte;
var c:byte;
begin
val(s,v,c);
end;
begin
str(n,s);
weishu:=0;
for i:=1 to length(s) do
inc(weishu,v(s[i]));
end;

n在qword的范围内

Answer 4

先把各位数分出来
再加在一起