Jollwish 2008-08-17 19: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 07:34:00
2747
回复
删除
aa,ba:array[1..20]of integer；
改成：
aa,ba:array[1..20]of longint；
FP 的 integer 默认不是长整，的确容易搞错
#2 DarkMaster@2008-08-17 19:08:00
4779
回复
删除
呵呵，为了区分起见我一般用smallint(-32768~32767)和longint，这样不容易搞错，因为怕不同地方integer指的范围弄错，一般integer都是指smallint。