pascal的一个题

来源：百度知道 编辑：UC知道 时间：2024/06/30 16:25:11
..百元买百鸡
1只公鸡5元 1只母鸡3元 3只小鸡1元..
100元买几只鸡?
..哪位天才能用最最最简单的pascal编写出来..thanks

program bybmj(input,output);
var i,j,t:integer;
begin
for i:=1 to 20 do
for j:=1 to 33 do
begin
t:=100-i-j;
if t div 5+i*5+j*3=100 then write(i,j,t:5);
end;
end.

program Noname7;
uses crt;
var i,j,k:integer;
begin
for i:=1 to 20 do
for j:=1 to 33-i do
for k:=1 to 300-i-j do
if i*5+j*3+k*(1/3)=100 then writeln (i,',',j,',',k);

Readkey;
end.

{
i:公鸡
j:母鸡
k:小鸡
}

呆

最简单的枚举题啊。。。。。。

汗S```这个都不会