讨论 / 怎么错
李一恒 2010-10-04 16: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 16:00:00
回复 删除
yun

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

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

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

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

还有 s未赋初值0

查看更多回复
提交回复