Một số nguyên tố Fibonacci là một số Fibonacci đồng thời là số nguyên tố. Sau đây là một vài số nguyên tố Fibonacci: 2, 3, 5, 13, 89, 233, 1597 .. Bạn hãy viết chương trình đếm số lượng số nguyên tố fibonaci trong đoạn [a, b]. (Bao gồm cả a và b) Dữ liệu nhập: - Gồm hai số nguyên a và b cách nhau một dấu cách. Kết quả: - in ra một số nguyên duy nhất là đáp án cần tìm. Code pascal

var a,b:int64;
function nt(n:int64):boolean;
  var i:longint;
   begin
 if n<2 then exit(false);
 if n<4 then exit(true);
 if (n mod 2=0) or (n mod 3=0) then exit(false);
 for i:=1 to trunc(sqrt(n)+1) div 6 do
 if (n mod (i*6-1)=0) or (n mod (i*6+1)=0) then exit(false);
 exit(true);
   end;
function dem(a, b: int64): int64;
var
 prev, curr, next, count: int64;
begin
 prev := 0;
 curr := 1;
 count := 0;
 while curr <= b do
 begin
  if curr >= a then
  begin
   if nt(curr) then
    Inc(count);
  end;
  next := prev + curr;
  prev := curr;
  curr := next;
 end;
 Exit(count);
end;
begin
read(a,b);
writeln(dem(a,b));
 end.
 

*số fibonacci là số có dạng `5n^2+4` hoặc `5n^2-4` là số chính phương.

`=>` kiểm tra `sqrt(5n^2+4)` hoặc `sqrt(5n^2-4)` có phải là số nguyên hay ko nếu là số nguyên thì nó là số fibonacci.

code:

uses crt;
var a,b,i,d:longint;

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

begin
clrscr;
readln(a,b);
for i:=a to b do
 if (trunc(sqrt(5*sqr(i)+4))=sqrt(5*sqr(i)+4)) and(kt(i)) then d:=d+1
 else
  if (trunc(sqrt(5*sqr(i)-4))=sqrt(5*sqr(i)-4)) and(kt(i)) then d:=d+1;
write(d);
readln
end.