几个PASCAL 问题。会几个答几个。。

来源：百度知道 编辑：UC知道 时间：2024/05/25 11:58:27
1. 100头牛喝了100桶水
牛牛家有100头牛，正好喝了100桶水。大牛一头要喝3桶水，小牛两头才喝一桶水。。大牛小牛各几头？
2.20级台阶。每步走一台阶或2台阶 有几种走法？

1:var
i,j:integer;
begin
for i:=1 to 100 do
for j:=1 to 100 do
if ((i*3)+(j/2)=100) and (i+j=100)
then write(i,' ',j);
end.
输出为 20 80
2:var
a,i,j:integer;
begin
for i:=0 to 20 do
for j:=0 to 10 do
if i+(j*2)=20 then
a:=a+1;
write(a);
end.
输出为11

大牛20头，小牛80头

11种

1.解：设大牛x头，小牛y头.依题意得：
方程组：x+y=100，3x+1/2y=100
解得 x=20 y=80
2.10946