Question

giúp mk vs mn.KO DÙNG C+ 

Viết chương trình nhập số tự nhiên n<m(1<n<m<100000).In ra màn hình.

1.Kiểm tra số n có phải là số nguyên tố hay ko.

2.Đếm,tính tổng và in ra các số nguyên tố <n.

3.Đếm,tính tổng và in ra các số nguyên tố <m và >n.

4.In ra m số nguyên tố đầu tiên.

Answer 1

uses crt;

var n,m,i,dem,t,t1,d1:integer;

//chuongtrinhcon

function ktnt(var n:integer):boolean;

var i:integer;

kt:boolean;

begin

kt:=true;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=false;

if (kt=true) then ktnt:=true

else ktnt:=false;

end;

//chuongtrinhchinh

begin

clrscr;

readln(n,m);

if (ktnt(n)=true) then writeln(n,' la so nguyen to')

else writeln(n,' ko la so nguyen to');

dem:=0;

t:=0;

for i:=2 to n do 

  if (ktnt(i)=true) then

begin

write(i:4);

t:=t+i;

dem:=dem+1;

end;

writeln;

writeln(t,' ',dem);

t1:=0;

d1:=0;

for i:=n to m do 

  if ktnt(i)=true then

begin

write(i:4);

t1:=t1+i;

inc(d1);

end;

writeln;

writeln(t1,' ',d1);

readln;

end.