Question

openjudge 放苹果如何用pascal求解，请大神知道我的错误，总是 Runtime Error

var T,m,n,i,j:integer;
function f(x,y:integer):integer;
begin
if (x=0) or (y=1 ) then
f:=1;
if (y>x) then
f:=f(x,x)
else
f:= f(x,y-1)+f(x-y,y);
end;

BEGIN
Read(T);
for i:=1 to t do
Begin
Read(m,n);
j:=f(m,n);
writeln(j);
end;
END.
答案已解

program exam1_1;
var T,m,n,i:integer;
function f(x,y:integer):integer;
begin
if (x=0) or (y=1 ) then
f:=1
else if (y>x) then
f:=f(x,x)
else
f:= f(x,y-1)+f(x-y,y);
end;
BEGIN
Read(T);
For i:=1 to T do
Begin
Read(m,n);
writeln(f(m,n));
end;
END.

Answer 1

佩觉得小米不黑也没办法。其他的产品综合又不如小米强。比如华为，图形处理残缺，然后除了六寸大砖头[图片]

Answer 2

去威锋问问呢