帮个忙啊 — 编程爱好者社区

主题：帮个忙啊

流氓兔 [专家分：140] 发布于 2005-09-03 11:11:00

五分币和二分币共有M枚,总金额为N分，写一个程序计算五分币和二分币各有多少枚？将结果输出

帮我看一下啊[em7][em11]

沙发

lzl1403 [专家分：1670] 发布于 2005-09-03 17:13:00

for i:=0 to m do
if 5*i+2*(m-i)=n
then writeln('五分：',i,' 二分：',m-i);

板凳

花花美男子 [专家分：260] 发布于 2005-09-05 19:04:00

program xj(input,output);
var
a,b,m,n:integer;
begin
readln(m,n);
for a:=1 to m do
n:=5*m+2*(n-a);
writeln('5',m,'2',n-a);
end.

3 楼

QQ331373582 [专家分：1500] 发布于 2005-09-07 20:20:00

var n,a,b:integer;
begin
  readln(n);
  for a:=0 to n do
    for b:=0 to n do
      if(5*a+2*b=n)then writeln(5*a,' '2*b);
end.

4 楼

langsu [专家分：20] 发布于 2005-09-07 21:31:00

var m,n,c,d:integer;
  begin
   readln(m,n);
   c:=(5*m-n)/3;
   d:=m-n;
   writeln(c,d);
  end.
c为2分硬币
d为5分硬币
和鸡兔同笼问题一样

您尚未登录，请登录后再回复。点此登录或注册