Giúp mình gấp giải hộ bài này với(pascal)

[langtusitinh225]

Em có cách kiểm tra số chính phương rất dễ:

function ktcp(n:integer):boolean;
begin
   ktcp:=true;
   if frac(sqrt(n))=0 then exit;
   ktcp:=false;
end;

Còn hàm kiểm tra số nguyên tố có tốc độ nhanh nhất mà mình biết:

function ktnt(n:integer):boolean;
var i:integer;
begin
   ktnt:=false;
   if n<=1 then exit;
   for i:=2 to trunc(sqrt(n)) do
      if n mod i = 0 then exit;
   ktnt:=true
end;

[mini_bestboy]

Mấy bạn ơi, mình cho For i:=N to M do... không được, nó báo lỗi 39 không hà, chỉ mình với ( M,N là số thực)

[huysun]

tìm các số chính phương từ N đến M bằng cách cho i từ căn bậc 2 của N đến căn bậc 2 của M.
các số nguyên tố thì như bình thường.

còn bạn cho i chạy từ N đến M mà N,M là real thì lỗi là đúng rùi, thay real bằng longint là được.

[mini_bestboy]

Cám ơn bạn, mình chạy được rồi nhưng mà đề bảo là 2 số tùy ý mà bạn, đâu có bảo số nguyên, sao lại dùng longint ?

[huysun]

vậy thì khai báo M,N là real rồi phải chạy từ:
trunc(N)nếu N nhập vào là nguyên(if int(N)=N)
trunc(N)+1 nếu N không nguyên.
và đến trunc(M).

[nhat_truong]

Theo tui tìm số chính phương chỉ cần
If (sqrt(a)mod 1)=0 then writeln(a,'la so chinh phuong')

Cách của pác bị lỗi chắc. Bởi sqrt(a) là số thực, không thể dùng hàm mod được