dingming 2008-09-24 02: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？