Question

Pascal运行错误？

请大神们看看我的代码错在哪里（代码比较长）：var i,j,n,t,k:longint;s,ss:string;a:array[1..10005]of string; begin readln(n); for i:=1 to n do begin readln(s); ss:=s; for j:=1 to length(ss) do begin if s[j]=' ' then begin delete(s,j,1);inc(k);end; while s[j]=' ' do begin delete(s,j,1); inc(k); end; end; a[i]:=s; end; writeln(k); for i:=1 to n do writeln(a[i]); end.求大神帮忙！！！

Answer 1

程序无什么大的错误。小错误：

1、变量k 未赋初值；

2、变量 t 多余；

3、while 循环 多余，可删除。

Answer 2

因为你读入完a、b的值之后还没有求出c的值就输出了……应该先写c:=a+b;再writeln(c);