Question

Viết chương trình kiểm tra 1 số được nhập vào từ bàn phím có phải số nguyên tố hay không

Answer 1

Lời giải :

program hotrotinhoc ;

var i,n : integer;

kt : boolean;

begin

kt :=true ;

write('nhap n='); readln(n);

for i:= 2 to trunc(sqrt(n)) do

if n mod i =0 then kt:=false ;

if kt=true then write('Day la so nguyen to') else write('Day khong phai la so nguyen to');

readln

end.

Answer 2

Số nguyên tố có 2 số là ước của nó nên cho biến dem, nếu dem=2 thì số đó là số nguyên tố

Answer 3

.

Answer 4

Gửi trả lời.

Answer 5

program nguyen_to;

uses crt;

var n:longint;

function nt(n:longint):boolean;

var i:longint;

begin

nt:=true;

if n<2 then nt:=false;

for i:=2 to n div 2 do

if n mod i=0 then nt:=false;

end;

begin

clrscr;

write('nhap n=');readln(n);

if nt(n) then writeln(n,' la so nguyen to')

else writeln(n,' ko la so nguyen to');

readln

end.