pascal循环问题

Question

请高手帮小弟分析一下，下列程序，这是“百鸡”题，小弟看得不是很懂，如能逐句分析更好，叩谢！
var
a,b,c:integer;
begin
a:=0;
b:=0;
while a<=100 div 3 do
begin
a:=a+1;
b:=0;
while b<=(100-a) div 2 do
begin
b:=b+1;
c:=(100-3*a-2*b)*3;
if a+b+c=100 then writeln(a,' ',b,' ',c);
end;
end;
end.

var
a,b,c:integer;
begin
a:=0;
b:=0;
repeat
a:=a+1;
b:=0;
repeat
b:=b+1;
c:=(100-3*a-2*b)*3;
if a+b+c=100 then writeln(a,' ',b,' ',c);
until b>(100-a) div 2;
until a>100 div 3;
end.

Answer 1

百钱买百鸡...这是一人经典的程序循环程序
首先是a,b,c三个数据...分别代表公鸡,母鸡和小鸡的数量
然后是a:=0;b:=0;初始值

while a<=100 div 3 do 这是第一层外循环 公鸡的循环
公鸡a值3钱...一共100钱...所以公鸡a的数量<=100/3的值
a:=a+1;b:=0;在公鸡的循环里每次循环公鸡a的数量+1 母鸡清0
(公鸡数量只能是0～100/3之间...所以循环中总会遇到正确的数)

while b<=(100-a) div 2 do 这是在第一层公鸡循环里的第二层循环 母鸡的循环
这段是不是写错了? 应该是while b<=(100-3*a) div 2 do
母鸡b值2钱...一共100钱...所以母鸡b的数量<=(100-3*a)/b 100钱减公鸡花的然后循环母鸡的数量
b:=b+1;在第二层循环里母鸡b的数量每次+1

c:=(100-3*a-2*b)*3 这是第三层嵌套小鸡的循环
小鸡c三个值1钱...所以c的值应该是100钱减去前面循环的公鸡a和母鸡b所花的钱然后乘3就是小鸡的数量

if a+b+c=100 then writeln(a,' ',b,' ',c); 把满足a,b,c总数为100的结果打印

下面是另一种语句循环...结构和结果相同
不懂的话了解一下其语句的说明

Answer 2

请把题目粘上去。。。