您所在位置：主题：wrong？
cskeleton
[专家分：10] 发布于 2005-04-11 19:09:00
求m!+n!
var a,r,s,m,n,i,j:integer;
begin
s:=1;
readln(m,n);
for i:=1 to m do
s:=s*i;
for j:=1 to n do
r:=r*j;
a:=s+r;
writeln('result:' , a);
end.
有什么错?
var a,r,s,m,n,i,j:integer;
begin
s:=1;
readln(m,n);
for i:=1 to m do
s:=s*i;
for j:=1 to n do
r:=r*j;
a:=s+r;
writeln('result:' , a);
end.
有什么错?
