Question

关于 freepascal

一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？

programr ex4_6;
　　var i,j,k:integer;
　　begin
　　　for i:=1 to 33 do
　　　for j:=1 to 50 do
　　　　begin
　　　　　k:=90-i-j;
　　　　　if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5);
　　　　end;
　　end.
我输入程序后 为什么run了之后只能出现5组数据？答案不是应该有很多吗？

Answer 1

貌似没有错，但是一个就是这么多了，还有开头应该是“program”。
本人回答不知是否和意，如果有错，请指出，本人感激不尽！

Answer 2

for i:=1 to 33 do
for j:=1 to 50 do//i和j可以取0

追问

我取了0 之后还是只出现5组数据

追答

program ex4_6;
var i,j,k:integer;
begin
for i:=0 to 33 do
for j:=0 to 50 do
begin
k:=90-i-j;
if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5);
end;
end.
输出数据为：
0 10 80
1 8 81
2 6 82
3 4 83
4 2 84
5 0 85