输入一个四位数,求它各位上数字的和 用pascal

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 14:10:18
输入一个四位数,求它各位上数字的和 用pascal

输入一个四位数,求它各位上数字的和 用pascal
输入一个四位数,求它各位上数字的和 用pascal

输入一个四位数,求它各位上数字的和 用pascal
数字操作:
var
n,s:integer;
begin
readln(n);
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
end.
字符串操作:
var
i,s:integer;
n:string;
begin
readln(n);
s:=0;
for i:=1 to length(n) do
s:=s+ord(n[i])-ord('0');
writeln(s);
end.