16、百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。
17、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?
18、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上想再吃时，只剩下一个桃子了。求第一天共摘了多少桃子。
19、A、B、C三人进入决赛，赛前A说：“B和C得第二，我得第一”；B说：“我进入前两名，丙得第三名”；C说：“A不是第二，B不是第一”。比赛产生了一、二、三名，比赛结果显示：获得第一的选手全说对了，获得第二的选手说对了一句，获得第三的选手全说错了。编程求出A、B、C三名选手的名次。
20、赵、钱、孙、李、周五人围着一张圆桌吃饭。饭后，周回忆说：“吃饭时，赵坐在钱旁边，钱的左边是孙或李”；李回忆说：“钱坐在孙左边，我挨着孙坐”。结果他们一句也没有说对。请问，他们在怎样坐的？


各位，帮帮我吧，做不好不好交差啊！！！！！

第一个，可能有误，自己检查一下
var i:integer;
begin for i：=1000 to 9999 do
if (i mod 5=0)
then write（i‘ ‘）；
end.

我还在帮你写呢，结果惊人的发现百度一下就会有答案。。。

哈！
第一题：
var
a,b,c:integer;
begin
for a:=1 to 33 do
for b:=1 to 100 do
begin
c:=100-a-b;
if (a*3+b+c div 3) and (c>=1) then writeln(a:5,b:5,c:5);
end;
end.

帮我写蛇爬树，我就给你第1道

var x,y,z:longint;
begin
for x:=0 to 20 do
for y:=0 to 33 do
for z:=0 to 100 do
if (x*5+y*3+z/3=100)and(x+y+z=100) then writeln(x,' ',y,' ',z);
end.

第一个不用去算，直接write就可以啦

反正没有输入数据

好简单的题目

16
var i,j,k:longint;
begin
for i:=1 to (100 div 3) do for j:=1 to (100-3*i) do begin
k:=(100-i*3-j)*3;
if (k=100-i-j)and(k>=1) then writeln(i,' ',j,' ',k);
end;
end.

哪个学校的