讨论 / 大牛们帮我看一下
Jollwish 2008-08-18 10:08:00
点我顶贴 收藏 删除
大牛们帮我看一下:

var a,b,i,j,as,bs:longint;

aa,ba:array[1..20]of integer;

s:qword;

begin

readln(a,b);

while a>0 do

begin

inc(as);

aa[as]:=a mod 10;

a:=a div 10;

end;

while b>0 do

begin

inc(bs);

ba[bs]:=b mod 10;

b:=b div 10;

end;

s:=0;

for i:=1 to as do

for j:=1 to bs do

s:=s+aa[as]*ba[bs];

write(s);

end.

#1 wish@2008-07-30 22:34:00
回复 删除
aa,ba:array[1..20]of integer;

改成:

aa,ba:array[1..20]of longint;

FP 的 integer 默认不是长整,的确容易搞错

#2 DarkMaster@2008-08-18 10:08:00
回复 删除
呵呵,为了区分起见我一般用smallint(-32768~32767)和longint,这样不容易搞错,因为怕不同地方integer指的范围弄错,一般integer都是指smallint。
查看更多回复
提交回复