Thuật toán:
- phần chương trình con:
+ tạo hàm isPrimeNumber
+ cho i=2
+ (sử dụng vòng lặp) n>1 và n chia lấy phần dư cho i khác 0 thì tăng i lên 1 đơn vị
+ nếu i=n thì isPrimeNumber trả về true ngược lại isPrimeNumber trả về false
- phần chương trình chính:
+ nhập a,b
+ cho i chạy từ a đến b, nếu trên vòng lặp, isPrimeNumber(i) có nghĩa là từng i là số nguyên tố thì tăng d lên 1 đơn vị
+ xuất kết quả ra màn hình
Chương trình:
uses crt;
var a,b,i,d:longint;
function isPrimeNumber(n:longint):boolean;
var i:longint;
begin
i:=2;
while(n>1) and (n mod i<>0)do inc(i);
isPrimeNumber:=i=n;
end;
begin
clrscr;
readln(a,b);
for i:=a to b do
if isPrimeNumber(i) then inc(d);
writeln(d);
readln
end.
