·Pascal编程，给我点提示，最好有答案，在下感激不尽2.0

来源：百度知道 编辑：UC知道 时间：2024/05/09 10:15:45
公鸡5文钱一只，母鸡3文钱一只，小计3只1文钱，100文钱要买100只鸡，列举所有买法。

给点提示，或程序来

a=0 b=25 c=75
a=4 b=18 c=78
a=8 b=11 c=81
a=12 b=4 c=84

for(int i=0;i<100;i++){
if((((100-7*i)%4)==0)&&(100-7*i>0)){
System.out.println("a="+i+" b="+((100-7*i)/4)+" c="+(100-i-((100-7*i)/4)));
}
}
//int a,b,c;
//a+b+c=100;
//5a+3b+c/3=100;
//15a+9b+c=300;
//c=300-15a-9b;
//a+b+300-15a-9b=100;
//200=14a+8b;
//100=7a+4b;
//a
//b=(100-7a)/4
//c=300-15a-9((100-7a)/4)

很长时间不用DELPHI了，也不知道对不对！

program test;
var
i,j,k:integer;
begin
for i:=0 to 20 do
for j:=0 to 30 do
for k:=0 to 100 do
if(k mod 3=0)and(i*5+j*3+k/3=100) then
writeln(i,' ',j,' ',k);
end.

你自己看看吧！