求大牛指点迷津!N钱买N只鸡
pascal吧
全部回复
仅看楼主
level 4
百钱买百鸡:公元前五世纪,我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”:鸡翁一值钱五,鸡母一值钱三,鸡雏三值钱一。百钱买百鸡,问鸡翁、鸡母、鸡雏各几何?
现把题目更改成,给了N个钱,要买N个鸡,问能有几种方法买到?
输入:N(1<N<=10^5)
输出:种数
2012年08月03日 06点08分 1
level 2
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses System.SysUtils;
var Money,i,j,t:longint;
begin readln(Money); for i := 0 to Money div 5 do for j := 0 to (Money - i) div 3 do if i+j+(Money - i*5 - j*3 )*3 = Money then begin write('We can buy ', i ,' roosters ', j ); writeln(' hens and ', (Money - i*5 - j*3 )*3, ' chicks.'); end; readln;
end.
自己输出到文件.....骚年
2012年08月03日 08点08分 2
我真TM无聊~~~....
2012年08月03日 08点08分
算法正解:但笔误了第二个for 应为for j:=0 to (Money-i*5) div 3 do 少个*5.
2014年07月25日 11点07分
level 11
线性代数--高斯消元
2014年07月27日 03点07分 3
1