費馬小定理pascal

2022-08-27 01:20:23 字數 1220 閱讀 9178

1樓:聽不清啊

var n:longint;

function modular_exp(a,p,k:longint):int64;

var t,ans:int64;

begin

t:=a mod k; ans:=1;

while p>0 do

begin

if (p and 1=1) then ans:=(ans*t) mod k;

t:=(t*t) mod k;

p:=p shr 1;

end;

modular_exp:=ans;

end;

function miller_rabbin(n:longint):boolean;

var i,k,epsilon:longint;

begin

epsilon:=round(exp(1)*ln(n)/ln(2));

for i:=1 to epsilon do

begin

k:=random(n-1)+1;

if modular_exp(k,n-1,n)<>1 then exit(false);

end;

exit(true);

end;

begin

readln(n);

if miller_rabbin(n) then

writeln(n,' is a prime.')

else  writeln(n,' is not a prime.');

end.

這個程式要在free pascal環境下執行。

2樓:匿名使用者

vara,b:longint;c:boolean;

begin

readln(a);

if a<2 then writeln(a,' is not a prime.')

else

begin

c:=true;

for b:=2 to trunc(sqrt(a)) do

if a mod b=0 then c:=false;{判斷是否有除了1和它本身以外的因數}

if c=false then writeln(a,' is not a prime.'){不是素數}

else writeln(a,' is a prime.');{是素數}

end;

end.

證明 lim nn 1(用二項式定理,無窮小比較定理)

因為當n 2時,n 1 n 1,所以令n 1 n 1 b,其中b 0 n 1 b n 1 nb n n 1 2 b 2 b n 二項式定理 1 n n 1 2 b 2 n 1 n 2 b 2 1 0 n 2 b 2 1 b 2 2 n 0 1 2 n 1 所以lim n n 1 n 1 我想到的是取...

作為家用悍馬確實太費,車內空間寬大不假,但是油耗明顯偏高,配置比較一般

樓主不像在提問,倒像是回答別人的問題。這是事實,我只是就事論事,悍馬確實太費,沒必要作為家用,相比之下還是凱迪拉克好一點,有事 我的qq 他最主要的就是油耗驚人,一年的費用要20一30萬 不過他是奢侈品,錢就不說了,美國車都是龐然大物,他是財富地位的象徵 悍馬費油是肯定的.車內空間根本就不寬大.外面...

宋小寶和馬雲搭檔小品是什麼節目,馬雲與宋小寶演的小品是什麼節目

小品名叫 鄉村教師 是2017年1月5日,在傳統的臘八節夜晚,馬雲在海南三亞香格里拉酒店,舉辦的第二屆 馬雲鄉村教師獎 頒獎典禮上表演的。馬雲在節目中飾演了一位到鄉村任教的老師,而宋小寶飾演了一位任教30年卻沒有教師資格證的鄉村教師。宋小寶因為擔心新來的教師與之前城裡來的老師一樣受不了苦中途跑路,放...