Nhập một số cho biết đó cs phải số siêu nguyên tố ko

0 bình luận về “Nhập một số cho biết đó cs phải số siêu nguyên tố ko”

1. uses crt;
   var n,kt:longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
   i:=2;

   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
   end;

   begin
   clrscr;
   write(‘n=’);readln(n);
   repeat
   if not(nt(n mod 10)) then kt:=1;
   n:=n div 10;
   until n=0;
   writeln(kt=0);
   readln
   end.

   Bình luận

2. Nhớ sao làm vậy nha 

   7331 vì 733, 73 7 là các số nguyên tố

   Bình luận