Code:

uses crt;
var  n,i:integer;
Begin
  clrscr;
write('nhap so ');
readln(n);
i:=2;
while n mod i<>0
Do
i:=i+1;
if n=i then write('La so nguyen to') else write('ko la so nguyen to');
readln;
end.

Regulus đã viết:

Code:

uses crt;
var  n,i:integer;
Begin
  clrscr;
write('nhap so ');
readln(n);
i:=2;
while n mod i<>0
Do
i:=i+1;
if n=i then write('La so nguyen to') else write('ko la so nguyen to');
readln;
end.

) good
but nhưng chưa tối ưu.
i : 1 -> phần nguyên căn bậc 2 của n là đc rùi.

chỉ là góp í.......

Trích dẫn :

i:1 Phần nguyên căn bậc 2 của n là được rồi

Hok hiểu...

Regulus đã viết:

Trích dẫn :

i:1 Phần nguyên căn bậc 2 của n là được rồi

Hok hiểu...

tức là:
thuật toán của pạn xét i từ 1 tới n ...
còn ý mình là chỉ cần xét tới phần nguyên căn bậc 2 của n thôi (đừng nói hok hĩu nha ^^!)
cái này có một định lý toán học mà tui từng biết.