Free Pascal解答

发布网友发布时间：2024-12-03 06:44

共4个回答

热心网友时间：2024-12-12 07:15

可以用字符串的方法。
将读入的字符串的诸位化成整数，并加起来。
程序：
Var
s:string;
i,j,z:Integer;
Begin
Readln(s);
For j:=1 to length(s) do
Begin
Val(s[j],z);
i:=i+z;
End;
Writeln(i);
End.

_______________
望采纳

热心网友时间：2024-12-12 07:15

var
a,b:integer;
begin
read(a);
b:=(a div 100)+((a div 10)mod 10)+(a mod 10);
writeln(b);
end.

热心网友时间：2024-12-12 07:16

var i,x:longint;s:string;
begin
readln(s);
for i:=1 to 3 do x:=ord(s[i])-ord('0');
end;

热心网友时间：2024-12-12 07:16

var
a,b:longint;{分别是N和各个位数的和}
begin
read(a);{输入N}
b:=(a mod 10)+(a div 10 mod 10)+(a div 100);{把N的各个位数相加}
writeln(b);{输出和}
end.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com