Question

free pascal高手题：输入一个数写出各个位的和 注意：是不管输入几位数，都可以输出他的和

好的千分赏
要用while语句哦

Answer 1

楼上的太复杂了，而且这个也不算高手题吧……
给个简单的
program sum;
var
a:longint; //存储输入的数
s:longint; //存储数字和的结果
begin
readln(a); //输入
s:=0; //初始化
while a>0 do //a>0时不断地做
begin
s:=s+a mod 10; //把a的个位加到s里面
a:=a div 10; //把a的个位去掉
end;
writeln(s); //输出
end.
小朋友好好体会一下吧！我相信你会进步的！

Answer 2

function jia(s1,s2:ansistring):ansistring;
var i,j,l1,l2:longint;
a,b:array[0..10000] of longint;
o:ansistring;
begin
jia:='';
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
l1:=length(s1);
l2:=length(s2);
for i:=1 to l1 do
a[l1-i+1]:=ord(s1[i])-ord('0');
for i:=1 to l2 do
b[l2-i+1]:=ord(s2[i])-ord('0');
for i:=1 to l1 do
begin
a[i]:=a[i]+b[i];
if a[i]>=10 then
begin
inc(a[i+1]);
a[i]:=a[i]-10;
end;
end;
if a[l1+1]>0 then inc(l1);
for i:=1 to l1 do
begin
str(a[i],o);
jia:=o+jia;
end;
end;
var ii,jj:integer;
ss,si,sj:ansistring;
begin
readln(ss);
ii=length(ss)-1;
si=ss[ii+1];
while ii >=1 do
begin
si=jia(si,ss[ii]);
ii=ii-1;
end;
writeln(si);
end.

Answer 3

program ui (input,output);
var
s:string;
i,j,k:longint;
begin
readln(s);
i:=1;
k:=0;
while i<=length(s) do
begin
k:=k+ord(s[i])-48;
i:=i+1;
end;
writeln(k);
end.

追问

string是什么？

Answer 4

什么语言的啊

追问

pascal语言，用while语句做

追答

pascal？ 没听说过
告诉你一个流程吧
可以先将 这个数字转换成字符串 然后 获得字符串的每个字符 然后把 每个字符 转换成int 以后 加在一起就可以了 循环的条件是 这个数字转换成字符串以后的长度