1樓：匿名使用者
第一題不理解，要整條的賣，又買出二分之一條？？？
其他不難，晚點給你答案。
4.var i,j,k:integer;
begin
for i:=1 to 9 do begin
k:=i;
if i>5 then k:=10-i;
for j:=1 to (k-1)*2+1 do
write(i);
writeln;
end;
end.
3.var b:array[1..6,1..6]of integer;
i,j,k,l,m,o,p,q:integer;
begin
o:=1+2+3+4+5+6;
for i:=1 to 6 do begin
b[1,1]:=i;
for j:=1 to 6 do
if j<>i then begin
b[2,1]:=j;
for k:=1 to 6 do
if (k<>j)and(k<>i)then begin
b[2,2]:=k;
for l:=1 to 6 do
if (l<>i)and(l<>k)and(l<>j)then begin
b[3,1]:=l;
for m:=1 to 6 do
if (m<>i)and(m<>j)and(m<>k)and(m<>l)then begin
b[3,2]:=m;
b[3,3]:=o-i-j-k-l-m;
if (b[1,1]+b[2,1]+b[3,1]=b[1,1]+b[2,2]+b[3,3])and(b[1,1]+b[2,1]+b[3,1]=b[3,1]+b[3,2]+b[3,3])
then begin
for p:=1 to 3 do
begin
for q:=1 to p do
write(b[p,q]:2);
writeln;
end;
end;
end;end;end;end;end;
end.
2樓：匿名使用者
1.const n=11;
var r:real;i:integer;
begin
r:=n;
for i:=5 downto 1 do
r:=(r-1*i)*i;
writeln(r:0:0);
end.
幾道c 程式設計題 答對加懸賞 ，求2道C 的程式設計題（高人請進）
最大bai 公約du數最zhi小dao公內倍數容 include include using namespace std int main cout for j cout return 0 1.內容 編寫兩個函式分別求n！和 的程式。2 源程式 include using namespace std...
幾道關於時態的英語題求解
第一題，記住規則，主句和從句幾乎不可能同時用現在完成時，從句要比主句早一個時態，所以不選c 第二題，該句子十分獨立，無前後文，而且也沒有時間狀語說是什麼時候敘述的事兒，只是單純描述過去的一個動作，所以用一般過去時就行，選d 第三題，因為用it is，而且說的是死人愛迪生，所以用過去式，同第二題，單純...
幾道英語題 幾道英語的題
a d自己感覺不知道對不對。因為不知道答案正確與否，不敢妄作解釋。you needn t.threehundred andsixty five daysin ayear.todo about n.名詞一般有數詞修飾，所以用單數。him改為her her改為his 5.通常地，人們會給小孩子一些糖果表...