1樓：匿名使用者
我剛剛自己編的 試過了 肯定對
程式中公雞數量為a
母雞數量為b
小雞數量為c
輸出順序為
a1 b1 c1
a2 b2 c2
…… **如下
-----------------------------------------
for迴圈
vara,b,c:integer;
begin
for a:=1 to 100 div 3 do
for b:=1 to (100-a) div 2 do
begin
c:=(100-3*a-2*b)*3;
if a+b+c=100 then writeln(a,' ',b,' ',c);
end;
end.
-----------------------------------------
while迴圈
vara,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.
-----------------------------------------
repeat迴圈
vara,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.
2樓：pascal初級
樓上那個我試過了，不太對，有負數的。
3樓：匿名使用者
var i,j,k:longint;
begin
for i:=0 to 20 do
for j:=0 to 33 do
for k:=0 to 300 do
if i*5+j*3+k/3=100 then writeln(i,' ',j,' 'k);
end.
4樓：潘斐陽
一樓抄我的！！
連數字都沒改啊！！
這是我的
5樓：匿名使用者
vargong,mu,xiao:integer;
begin
for gong:=1 to 19 do
for mu:=1 to 33 do
begin
xiao:=(100-5*gong-3*mu)*3;
if (xiao>0)and(gong+mu+xiao=100) then writeln(gong,' ',mu,' ',xiao);
end;
end.
Pascal程式設計牛棚回聲，Pascal程式設計 牛棚回聲
由於兩個字串長度只有80個，所以最實惠的方法是列舉列舉長度l，然後看第一個字串的後l個字元與第二個字串的前l個字串比較，相同即可跳出迴圈 記錄跳出迴圈的l，交換兩個字串 再次進行1操作 比較跳出迴圈的l和剛才記錄的l的大小，取較大者即為答案程式 略 pascal幾個問題 問題a程式 varn int...
Pascal程式設計題答案，pascal程式設計題目，大師解答一下，最好用最簡潔的方法，做上批註。
pascal博士 var f array a d of boolean s longint ch char begin for ch a to d dobegin f ch true 列舉誰是小偷，做標記s 0 說真話數量計數器 if not f a then inc s a不是小偷則計數器加一 i...
pascal 程式設計題 n皇后問題
program tt var a array 1.100 of integer b,c,d array 100.200 of integer t,i,j,k integer procedure print begin t t 1 write t,for k 1 to n do write a k w...