作业帮输入一个四位数,求它各位上数字的和 用pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 05:19:55
输入一个四位数,求它各位上数字的和 用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.
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.
输入一个四位数,求它各位上数字的和 用pascal
输入一个整数n,求它各位上的数字和 pascal
一个四位数与它的各位上的数字只和是1972,求四位数
Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和
5、输入一个四位数的整数,计算它各位上数字的和.（注意：是任意位的整数）
一个四位数与它各位上的数字和正好为2004,求出所有这样的四位数
一个四位数与它各位上的数字和相加正好为2004,求出所有这样的四位数
一个四位数,它的各位上的数字的和是1,这个数是什么?
有一个四位数，它的各位上数字相加的和能被17整除，将这个四位数加上1，所得和的各位上的数字的和也能被17整除，这个四位数
输入一个整数,求它的各位数字之和及位数
PASCAL：如何将一个四位数的各位数字分解出来
一个四位数,她的各位数字之和是35一个四位数,它各位数字的和是35,这个四位数最小是