Đếm số nguyên tố trong đoạn A và B

Question

Nhập 2 số a và b , đếm các số nguyên tố có trong đoạn a và b

Answer 1

program dem_nt;

uses crt;

var a,b,i,dem:integer;

(*-------------------------------------------------------------*)

function kt(x:integer):boolean;

var i:integer;

begin

kt:=true;

for i:=2 to x-1 do if x mod i=0 then kt:=false;

end;

(*---------------------------------------------------------------------*)

begin

clrscr;

write('Nhap so a: '); readln(a);

write('Nhap so b: '); readln(b);

dem:=0;

for i:=a to b do if kt(i) then inc(dem);

write('Co ',dem,' so nguyen to');

readln;

End.