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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận