讨论 / 高手帮帮忙
dingming 2008-09-24 17:27:00
点我顶贴 收藏 删除
var a1,a2,i,j,s,m,n,code:integer;

a,b:string;

begin

a1:=1;a2:=1;s:=0;

while not eoln do begin read(a[a1]);a1:=a1+1;end;

readln;

while not eoln do begin read(b[a2]);a2:=a2+1;end;

for i:=1 to a1 do

for j:=1 to a2 do

begin

val(a[i],m,code);

val(b[j],n,code);

s:=s+m*n;

end;

write(s);

end.

哪里错了?

测试结果是0?

查看更多回复
提交回复