1樓：新超級賽亞人
vari,f,a:integer;
begin
readln(a); f:=0;
for i:=2 to a div 2 doif a mod i=0 then f:=1;
if f=0 then writeln('yes')else writeln('no');
end.
其實你弄乙個「哨兵」比較方便 ...
2樓：
錯誤：for迴圈中的if語句僅用來判斷他被j除是否有餘數 不符合素數的定義……
建議：if語句中用個計數器（如下），根據計數器所顯示的約數的個數判斷是否為素數……另：在for迴圈處，可對迴圈次數進行優化。
當i比較小的時候，這種優化的優點不太明顯，但當輸入的i比較大的時候，在時間上明顯要快很多……
附在你的基礎上進行改善的程式……
program shu;
var i,j,k:integer;
begin
read(i); k:=0;
for j:= 2 to i div 2 doif i mod j =0 then inc(k);
if k=0 then writlen('yes')else writeln('no');
end.
希望對你的學習有幫助……呵呵……
3樓：匿名使用者
var i,j:integer;
begin
read(i);
for j:= 2 to trunc(sqrt(i)) doif i mod j =0
then begin
write('no')；
break；
end；
else begin
write('yes');
break；
end.
pascal高手請進啊
分析 我們判斷的方法是 先假設某人是小偷，然後判斷四個嫌疑犯說的話是不是有三句真的，一句假的。如果是，則假設成立，找到小偷。用 a b c d 四個字元分別代表a，b，c，d這四個人。用變數x代表小偷。則四個嫌疑犯說的話可以轉化為四個關係表示式 a說 我不是小偷。x a b說 c是小偷。x c c說...
感情高手請進，感情高手請進。。
你們是學生?既然是學生談戀愛把你們的 發到她家裡 也許她是揹著家裡跟你交往的 那麼你確實熱火她了 並且你這樣的行為可以說很可惡 你不信任你女朋友，並且不尊重她,並且你處理事不夠冷靜 我問你,如果你更生氣的情況下是不是會發生什麼孽的行為呢?現在社會上的新聞你也知道,前段時間的那個新聞,男孩子潑硫酸的問...
法律高手請進，法律高手請進
1獎金應該歸李學軍所有。但其未滿18歲，不具備完全民事行為能力，所以其監護人有權對他的財產進行保管。2李學軍是限制行為能力人，可進行符合他年齡和智力的民事活動。所以購買行為具有法律效力。不能退貨。如果李學軍不滿10歲，就可以退貨了。李學軍，他有自主權了 有法律效力，能。1,本案獎金當然歸李學軍所有啊...