中科新闻网fc2破解版官网:我刚学，谁帮帮我这题？
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 22:40:19
我刚学，谁帮帮我这题？
我刚学PASCAL，谁帮帮我这题？
球赛门票的售票处规定每位购票者限购一张门票，且每张门票售价50元。购票者中有m位手持50元钱币，另有n人手持100元。假设售票处开始售票时无零钱。问这m+n人有几种排队方式可使售票处不致出现找不出钱的局面。对给定的m,n(0<=m,n<=5000)，计算出排队方式总数。输出数据第一行为求得方案数的十进制位数，第二行为方案数。
Example: Input Output
m=3,n=2 1
5
这是我写的，但过不了，我刚学，或许漏洞百出，请大家斧正，莫笑：
program cs;
var
m,n:integer;
f1:text;
begin
assign(f1,'f2.txt');
rewrite(f1);
if m>n and (m+n)>1 and (m+n)<4999 then
writeln(f1,m,n);
close(f1);
end.
我刚学PASCAL，谁帮帮我这题？
球赛门票的售票处规定每位购票者限购一张门票，且每张门票售价50元。购票者中有m位手持50元钱币，另有n人手持100元。假设售票处开始售票时无零钱。问这m+n人有几种排队方式可使售票处不致出现找不出钱的局面。对给定的m,n(0<=m,n<=5000)，计算出排队方式总数。输出数据第一行为求得方案数的十进制位数，第二行为方案数。
Example: Input Output
m=3,n=2 1
5
这是我写的，但过不了，我刚学，或许漏洞百出，请大家斧正，莫笑：
program cs;
var
m,n:integer;
f1:text;
begin
assign(f1,'f2.txt');
rewrite(f1);
if m>n and (m+n)>1 and (m+n)<4999 then
writeln(f1,m,n);
close(f1);
end.