Nhập vào màn hình 2 số a và b
Kiểm tra có bao nhiêu sô nguyên tố trong đoạn a và b
Nhập vào màn hình 2 số a và b Kiểm tra có bao nhiêu sô nguyên tố trong đoạn a và b
By Vivian
By Vivian
Nhập vào màn hình 2 số a và b
Kiểm tra có bao nhiêu sô nguyên tố trong đoạn a và b
program Thichdo;
use crt;
var n: word;
i: byte;
begin
i:=2;
writeln (‘ Nhap so tu nhien n ‘);
readln (n);
if n < 2 then writeln ( n,’ khong phai la so nguyen to’);
if n = 2 then witeln ( n,’ la so nguyen to’);
if n > 2 then
begin
while i = n do
if n mod i = 0 then begin writeln ( n,’ khong phai la so nguyen to’);
i:=n;
end;
else begin
i:=i+1;
if i = n do writeln ( n,’ la so nguyen to );
end;
end.
Mình làm đúng theo đề luôn nha bạn
uses crt;
var a,b,d,i:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
d:=0;
for i:=a to b do if nt(i) then inc(d);
writeln(‘Co ‘,d,’ so nguyen to trong doan tu ‘,a,’ den ‘,b);
readln
end.