1樓：匿名使用者
上網查了之後明白了題目，這道題不算難。
首先，如果只是輸入一行的話，題主可以將 while not eof do 語句去掉，否則最好是將答案存在一個ans陣列，即答案陣列裡，避免同時輸入和輸出。
maxn:=0;
minn:=0;
題主這句錯了，要保證maxn最大，則應該一開始選擇沒有數能比它更小，即-1；另一方面，要保證minn最小，則應該一開始選擇沒有數能比它更大，即minn:=maxint;
for k:='b' to 'y' do
for j:=chr(ord(k)+1) to 'z' do if(s[j]<>0) and (s[k]<>0) and (s[k]>s[j]) then maxn:=s[k];
if (s[j]<>0) and (s[k]<>0) and (s[k]0) and (s[j]>maxn) then maxn:=s[j];
for j:='a' to 'z' do if (s[j]<>0) and (s[j] 然後是判斷是否為素數（質數）的函式了。你傳進函式裡的是maxn-minn，這沒錯，但是一開始不應該把num作比較，應該是n這個傳進去的數。也就是說，將num這個變數去掉，直接用n代替即可，而且，在一開始的時候再判斷maxn是否等於minn，如果是就退出，返回值為false，因為0也不是質數。 以上就是我找到的錯誤，望採納和推薦。 如果還有不懂，就直接問我，如果我有空就回答。 2樓：匿名使用者 varx,i:char; a:array['a'..'z'] of byte; j,max,min,ans:longint; t:boolean; begin repeat read(x); if not(x in ['a'..'z']) then break; inc(a[x]); until x=''; min:=200; for i:='a' to 'z' do begin if a[i]>max then max:=a[i]; if (a[i]0) then min:=a[i]; end; ans:=max-min; if ans<2 then begin writeln('no answer'); writeln('0'); halt; end; t:=true; for j:=2 to trunc(sqrt(ans)) doif ans mod j=0 then begin t:=false; break; end; if t then begin writeln('lucky word'); writeln(ans); end else begin writeln('no answer'); writeln('0'); end; end.ac! [noip]noip2008用的pascal版本? 3樓：匿名使用者 freepascal 1.0.10 以上版本的編譯器。 4樓：水漫金山魔法師 pascal2.1.4 5樓：枕頭與鬧鐘 fr 2.1.4 windows 2000 6樓：匿名使用者 free pascal for noi 到10塊錢 小笨狗一隻多錢？小笨狗不值錢的啊，一隻幾十元左右 有 嗎？都不一樣哦，去市場問問 後面政法幹警j 的j國防軍發芽結果放一放再加上地方有朝一日假以時日所有痛苦?農村小笨狗多少錢一隻就是那種長大的土狗看家護院的那種 現在土狗能長大的也要不少錢呢，上次我在狗市賣我家狗狗生的小狗，看人家買的土狗... 你們家適合2019年10月6日上正樑，陰曆九月初八，雙日子，陰曆，陽曆都是，還是國慶假日，共祝祖國好！有國之興，小家平和幸福！入宅吉日吉時查詢老公屬馬，我屬羊，兒子屬蛇，請問2019年陽曆七月哪天搬家好?入宅吉日吉時查詢 戶主屬馬，妻子屬羊，兒子屬蛇，2019年陽曆7月29日卯時搬家入宅大吉。你好，... 自己努力提高綜合能力，少說多做。你一定能夠勝任所需的事業，你也不必刻意的心理暗示自己做不好，只要自己努力，你會得到他和他家人的肯定的！很強勢嗎？勸你還是算了，我老公也強勢，結果就是隻能對他父母好，對我父母沒一點孝心，你覺得這樣的人會給自己帶來幸福嗎？做好自己，相信自己，提升自己，縮小差距 未必是你最...我想買只小笨狗，多少錢正常，小笨狗一隻多錢？
老公屬羊，我屬馬，兒子屬猴，公公屬蛇，婆婆屬猴，哪天適合上正樑
男朋友很強勢哪都比我好，我很笨不自信，他家是做生意的我好多東西都不會，和他在一起感覺壓力好大，怎麼