利用輾轉相除法求兩數是否互為質數(素數) $a){ $x=$a;$a=$b;$b=$x;}while(1){ //echo a=.$a. b=.$b;echo \n; if($b==1){echo 互質;break;} if($b==0){echo 不互質;break;} if($a-$b > $b){ $a=$a-$b; }else{ $a=$a-$b; $x=$a;$a=$b;$b=$x; }}?>
复制代码