1樓:匿名使用者
var a,b,c,d,e:boolean;
n:byte;
begin
for a:=false to true dofor b:=false to true dofor c:
=false to true dofor d:=false to true dofor e:=false to true dobegin
n:=0;
if not (a and c) thenif b or c then
if (c and (d xor e)) or not c thenif not ((b and c) and d) thenif (b and not (d and e)) or not b then
begin
if a then inc(n);
if b then inc(n);
if c then inc(n);
if d then inc(n);
if e then inc(n);
if n=3 then
writeln(a,' ',b,' ',c,' ',d,' ',e);
end;
end;
end.
程式執行結果:(true 表示去的人)
38顆糖每個人分不同,a比b多3顆,c比d多3顆,e有多少顆
2樓:我的09建環
解答:答案是e有10顆糖。首先根據題意可知2b+2d=32-e,則e肯定是個偶數;接下來可使用假設法進行解答,可假設b的數量是不變的
由題可假設背b=5,則a=8,然後逐漸假設d的值(1)假設d=6,則c=9,e=10;
(2)假設d=7,則c=10,e=8,有兩個人一樣多不符合提議;
(3)假設d=8,則c=11,e=6,有兩個人一樣多不符合提議;
上述三次假設已將將所有可能出現的情況考慮進去了沒必要在繼續假設了,因此e=10
3樓:修樂荷
10顆精 銳
4樓:匿名使用者
9.6.8.5.10
用c語言求從a、b、c、d、e中選3個人出差,求出所有方案,每個方案佔一
5樓:匿名使用者
#include
void main()
;for(i=0;i<=3;i++)
for(j=i+1;j<=4;j++)
for(k=j+1;k<=5;k++)
printf("%c、%c、%c出差\n",i+65,j+65,k+65);
}執行結果:
甲乙丙丁是一個小組的成員,他們要合作完成a、b、c、d四項工作。已知能做a工作
6樓:幹柿鬼鮫
問題:安排甲、bai
乙、du丙、丁做a、b、zhic、d四項工作.已知能做daoa工作的只有甲和內
乙,丁不會做b工作,那麼共容有______種不同的工作安排方法.解:因為能做a工作的只有甲,乙,丁不會做b工作,那麼如果安排甲做a工作,就有4種安排方法:
1.甲--a、乙--b、丁--c、丙--d;
2.甲--a、乙--b、丁--d、丙--c;
3.甲--a、乙--c、丁--d、丙--b;
4.甲--a、乙--d、丁--c、丙--b;
安排乙做a工作,同樣有4種方法,所以一共有8種方法,故答案為:8.
free pascal 高手進來看看..幫忙
7樓:琉璃夢蝶愛芒果
第三題列印什麼圖形?
var i:integer;
begin
randomize
repeat
i:=1+random(100);
until i=50;
writeln(i);
end.
vari,s:longint;
begin
for i:=1 to 1000 do
if i mod 15=0 then s:=s+i;
writeln(s);
end.
8樓:匿名使用者
nan!!!!!想想
200萬的任務,5個人銷售,平攤為一人40萬,a完成30萬,b完成5萬,c完成15萬,d完成20萬
9樓:xy快樂鳥
30+5+15+20+8=78(萬) 一共完成88萬
200-78=122(萬) 一共少完成122萬
10000×(40-30)/122=820(元) a應該扣取的
10000×(40-5)/122=2869(元) b應該扣取的
10000×(40-15)/122=2049(元) c應該扣取的
10000×(40-20)/122=1639(元) d應該扣取的
10000×(40-8)/122=2623(元) e應該扣取的
以上是最為合理的。
最不合理的是平均每人扣2000元
if (c!=d) matalb=!c; pascal=matlab裡面的!c是什麼意思,還有pascal是它自帶的變數嗎?
10樓:cs不好玩嗚嗚嗚
這句語句是**來的? != 這個語句應該是c語言的 not,還有pascal的賦值語句應該是:=
正確的應該是這樣:
program y1
varc,d,pascal.matlab:integer;//定義begin
readln(c,d);
if c<>d then matlab:=not c;
//if語句判斷
pascal:=matlab;
end.
應該是這樣,因為我沒有編譯過,所以可能有錯,諒解!
11樓:吃虎之虎
pascal是你定義的變數。
高考新課標數學12道中 是不是有3個a,3個b,3個c,3個d
12樓:行走在迷茫的路
不可能的,我去年高三就研究過,3a,4b,2c,3d類的一般都是,不會平均的,而且11,12題一般是b,d中的一個
有a,b,c三個數學小組,分別有成員5名,4名,3名,其中同時參加a和b小組的成員有3名
13樓:無歸吾歸
條件不明確答案不定···2或者3都有可能···
14樓:匿名使用者
已知條件不夠,難確定標準答案
free pascal如何顯示中文
在快捷方式屬性上找 選項。下面有一個調字符集。調到 gbk 就可以了 糖糖寳寳 1 把要輸的中文打到ultraedit中,然後看內碼,之後在pascal 裡輸內碼。2 就一個字元一個字元輸,比如 writeln bc af ba cf 這裡 表示字元 表示16進位制. 在桌面上建立一個快捷方式。點右...
free pascal輸出如下矩陣
var a array 1.20,1.20 of longint i,j,n,m,k,d,b longint begin readln n d n n for i 1 to n 1 div 2 dobegin for j n i 1 downto i do begina i,j d dec d en...
我的free pascal在哪出錯了
一般都用英文表示的 write 半徑 r,周長 l,面積 s 改成write l l,s s 你似乎把這裡的 忘了.標點符號要用英文輸入法,用漢字輸入法打出的標點就編譯不過。因為漢字輸入法打出的標點符號與英文輸入法的標點符號機內碼不同 好像是兩倍關係 所以pascal無法識別。pascal裡計算圓面...