Nhập vào hai số nguyên dương a và b,in ra các số nguyên tố trong khoảng từ a đến b

0 bình luận về “Nhập vào hai số nguyên dương a và b,in ra các số nguyên tố trong khoảng từ a đến b”

1. uses crt;
   var a,b,i:longint;
   {—Chuong-trinh-con—}
   function scan(n:longint):boolean;
   var j:longint;
   begin
         if n<2 then exit(false);
         for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then exit(false);
         scan:=true;
   end;
   {—Chuong-trinh-chinh—}
   BEGIN
         clrscr;
         write(‘Nhap a,b: ‘); readln(a,b);
         for i:=a to b do if scan(i) then write(i,’ ‘);
         readln;
   END.

   Bình luận

2. program nguyen_to;

   uses crt;

   var a,b,i:integer;

   {—Ham-KTNT—}

   function ktnt(n:integer):boolean;

   var r:integer;

   begin

        ktnt:=false;

        if n<2 then exit;

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

             if n mod r=0 then exit;

        ktnt:=true;

   end;

   {—CT-chinh—}

   BEGIN

        clrscr;

        write(‘Nhap a: ‘);   readln(a);

        write(‘Nhap b: ‘);   readln(b);

        for i:=a to b do

             if ktnt(i) then write(i,’ ‘);

        readln;

   end.

   Bình luận