李一恒 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.
#2 YouAreMyBaby@2010-10-04 01:18:00
17721
回复
删除
read(e,f);
不知道对不对 貌似字符串好像不能这么读吧
你试试用int64读入 通过str来转变字符串试试
还有 s未赋初值0