1樓：匿名使用者
program tou;
var t:char;
beginfor t:='a' to 'd' doif ord(t<>a)+ord(t=c)+ord(t=d)+ord(t<>d)=1 then writeln(t);
readln;
end.解釋一下：
ord(true)=1
ord(false)=0，這樣一來， ord(t<>'a')+ord(t='c')+ord(t='d')+ord(t<>'d')通過迴圈得到的thief的結果如果相加等於3
2樓：網友
列舉每一種可能，然後檢驗。
pascal問題一則（具體要求如下↓）
3樓：
var a : array[1..20000]of longint;
i, x, n, z : longint;
function find1:longint;{找到與所輸入的x相同數字的位子｝
beginfor i:=1 to n do
if a[i]=x then exit(i);
exit(0);
end;function find2:longint;｛找到相應位置｝
beginfor i:=1 to n do
if (a[i]x) then exit(i);
end;procedure work1;｛將相同的資料刪除｝
beginfor i:=z to n-1 do a[i]:=a[i+1];
dec(n);
end;procedure work2;｛插入資料｝
beginfor i:=n+1 downto z+2 do a[i]:=a[i-1];
a[z+1]:=x;
inc(n);
end;begin
readln(n);｛a的長度｝
readln(x);
fillchar(a,sizeof(a),$7f);｛將陣列a賦值為極大值｝
for i:=1 to 10 do
a[i]:=i;
if find1>0 then
begin z:=find1; work1; end
elsebegin z:=find2; work2; end;
for i:=1 to n do write(a[i],'
end.
free pascal程式設計題求解答（警察局抓了a 、b、c、d四名偷竊嫌疑犯，其中有一個是小偷。審問a說：「我……）
4樓：紫櫻之初
是c如果a說的是真話 那麼小偷是b 由此可推出d說的也是真話如果b說的是真話 那麼c說的也是真話。
如果c說的是真話 那麼b說的是假話 小偷不是d d說的就是真話如果d說的是真話 那麼b說的是假話 就不是d c說的是假話 那麼是c偷的 所以a說的也是假話。
pascal問題：如何找出幾個數中最小與最大數？（具體要求：↓）
5樓：匿名使用者
var i,n,x,max,min:integer;
beginreadln(n);
i:=0;max:=-maxint;min:=maxint;
repeat
inc(i);read(x);
if x>max then max:=x;
if xuntil i=n；
writeln('max=',max);
writeln('min=',min);
end. while的你自己改一下吧。
pascal問題
6樓：破落金合歡
想了想。
1--var
n,m:integer;
function f(n,m:integer):longint;
vari,s:longint;
beginfor i:=n to m do inc(s,i);
f:=s;end;
beginreadln(n,m);
write(f(n,m));
i:integer;
check:array[10..99]of boolean;
beginfor i:=10 to 99 do beginfor j:=2 to i-1 do if i mod j=0 then check[i]:=false;
k:=(i div 10)+(i mod 10)*10;
for j:=2 to j-1 do if j mod k=0 then check[i]:=false;
end;for i:=10 to 99 do if check[i] then write(i,'
剛才沒看到追問。把註解寫上了。
7樓：海淀區小吳同學
第一個：等差數列公式啊，高斯發明的那個。
program no1;
var a,b,c:longint;
beginreadln(a,b);c
c=(a+b)*(b-a+1);
writeln(c div 2);
end;第二個：for 1 to 99.交換數字，判斷是否質數。
pascal裝箱問題，有資料過不了
你要問什麼？pascal 裝箱問題 要有註釋，越詳細越好 var m,n,i,w,x longint f array 0.20001 of longint begin read m,n for i 1 to n do begin read w for x m downto w do if f x w...
杯具的感情問題
如果已經分手了，你們之間還是朋友，這些都屬於正常的關心。如果是男女朋友，她就會放下手上的事情，陪你一起去醫院。既然都有了選擇，還是快刀斬亂麻。放在心裡，要不成，不要也不成。其實樓主這樣猜測是沒有意思的，可能是喜歡你的關心，也可能就是朋友的關心，更可能是敷衍你，總不能跟你說 關我屁事之類的吧 所以樓主...
感情問題 誰是猴子為我搬來的救兵
我也是巨蟹座的男生，根據我跟我老婆的情況，我可以判斷他是喜歡你的，他試探你，就是想看看你是不是真的喜歡他，想讓你吃錯，所以你大可不必生氣。正所謂 男追女，隔座山，女追男，隔層紗 巨蟹座的比較重感情，當然也包括友情，但是他應該是分得清的，所以這就看他對你的感覺了，他到底有多喜歡你，是不是真心想跟你在一...