点这里查看
讨论 / 怎么错
李一恒 2010-10-04 01:18:00
点我顶贴 收藏 删除
var a,b:string；

i,j,k,s,n,e,f:longint；

begin

read(e,f)；

a:=chr(e)；

b:=chr(f)；

for i:=1 to length(a) do

for j:=1 to length(b) do

s:=s+(ord(a[i])-ord(’0’))*ord(b[j])-ord(’0’)；

write(s)；

end.

#1 luyao777@2010-10-04 01:00:00
回复 删除
yun

连s的变量初始值都没设啊，想怎么对？、

#2 YouAreMyBaby@2010-10-04 01:18:00
回复 删除
read(e,f）;

不知道对不对 貌似字符串好像不能这么读吧

你试试用int64读入 通过str来转变字符串试试

还有 s未赋初值0

查看更多回复
提交回复