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

[pvta4_bt]

Mình đang học pascal thầy cho bai tập này khó quá ai giúp mình giải với.Đề thế này:
Nhập từ bàn phím 2 số bất kì M và N (M<N), đếm số nguyên tố và số chính phương trong khoảng từ M->N giải hộ với thank!(mình quên mất số chính phương rồi).Nhớ ghi chi tiết cách giải hộ.

[gameonline]

số chinh phương là số chia hết cho 1 va chính nó.
còn thuật toán tôi chịu

[bichduyen_nt]

Chèn ơi, ...
Số chia hết cho 1 và chính nó là số nguyên tố
Số chính phương là số = bình phương của một số nguyên khác (Ví dụ: só chính phương: 4(=2 bình phương),9,16, ...

Dựa vào định nghĩa mà lập trình thôi. D chỉ nói thuật toán thôi nhé!
Để đơn giản, rõ ràng, dễ hiểu, tốt nhất là viết thành 3 hàm, 1 hàm kiểm tra N có phải là số Nguyên tố, 1 hàm kiểm tra N có phải là số chính phương, và hàm cuối cùng là cho ra kết quả

1. Hàm kiểm tra N có phải là số nguyên tố
Ban đầu, gán Kết quả trả về=True
Nếu N=1, gán Kết quả = False // mặc nhiên coi 1 không phải là số nguyên tố, cái này tùy quan điểm mỗi người nhé
Nếu N=2 Gán kết quả = True
Nếu N!=1&&N!=2 thực hiện
....Vòng lặp với i= 2 đến N/2, thực hiện
........Nếu(N chia hết cho i) trả ra kết quả = False và thoát khỏi chương trình
Xong!

2.Tương tự cho hàm kiểm tra số chính phương, coi thử căn bậc 2 của N có phải là số nguyên hay không, hm... cái này chỉ là D thử thôi nhé, chưa làm bao giờ nên ko biết có đúng hay không!
Gán biến Temp_float=sqrt(N)// ghi chú Temp_float là kiểu số thức và Temp_int là kiểu số nguyên
Sau đó ép kiểu phát, Cho biến Temp_int=(int)Temp_float
Rồi so sánh Nếu (Temp_float=(float)Temp_int) thì kết quả là đúng, ngược lại là sai
Xong !

Cuối cùng là hàm theo yêu cầu đề bài
Khởi tạo 2 biến Đếm_SNT=0 và Đếm_SCP=0
Vòng lặp i=M đến N, thực hiện
....Nếu i là số nguyên tố thì Đếm_SNT++
....Nếu i là số chính phương thì Đếm_SCP++
Kết thúc!

Để coi, hình như nếu nó là số nguyên tố thì không thể là số chính phương thì phải, bạn có thể thêm một chút để tối ưu thuật toán!
Hy vọng giúp được bạn!

[doremon_No1]

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')

[tranvanho]

đêđếm số nguyên tố và số chính phương từ M->N thì tui nghĩ mình nên xài vòng lặp for i:=M to n do
rùi xài hàm tính số chính phương và nguyên tố để tính(hàm tự tạo)
nếu kết quả là true thì giá trị tăng lên 1
ok

[pvta4_bt]

Những định nghĩa trên cái nào đúng về số nguyên tố và số chính phương vậy .Dùng 1 dòng for i:=M to N do nhưng những câu lệnh dưới thế nào ghi rõ giùm cái thật khó hiểu thank trước nha!

[bete]

Tui nghĩ xài "Sàng Eratosthenes" cho dễ cài đặt

(hiểu biết nông cạn; có gì sai sót mong được góp ý, xin cám ơn)

-thân

[tranvanho]

số nguyên tố là số chỉ chia hết cho 1 và chính nó
số chính phương là số có căn bậc 2 là 1 số nguyên
còn viết hàm kiểm tra số nguyên tố thì
function ktnt(a:integer):boolean;
i:integer;tong:byte;
begin
repeat
i:=i+1;
if a mod i=0 then
tong:=tong+1;
until i=a;
if tong>=3 then
ktnt:=false
else ktnt:=true;
end;

[tranvanho]

còn hàm kiểm tra số chính phương thì phải nhờ các cao thủ khác thui mình bó chiếu
bạn cho vòng for i:=M to N do
if ktnt=true then tong:=tong+1;
cứ như vậy thôi
mà bạn học 11 hả mình cũng học 11 nè

[thuonghcm]

function cp(n:integer):boolean;
begin
cp:=false;
if n<4 then exit;
if sqr(trunc(sqrt(n)))=n then cp:=true
end;