nhập vào số nguyên t -in ra số nguyên tố lớn nhất nhỏ hơn t -in ra số nguyên tố nhỏ nhất lớn hơn t nhâp vào t=17 d1:13 d2:19

0 bình luận về “nhập vào số nguyên t -in ra số nguyên tố lớn nhất nhỏ hơn t -in ra số nguyên tố nhỏ nhất lớn hơn t nhâp vào t=17 d1:13 d2:19”

1. program nguyento;

   uses crt;

   var n,t:integer;

   function ktnt(k:integer):boolean;

   var l:integer;

   begin

          ktnt:=false;

          if k<2 then exit;

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

                 if k mod l=0 then exit;

          ktnt:=true;

   end;

   BEGIN

          clrscr;

          write(‘Nhap vao t = ‘);   readln(t);

          if t<=2 then writeln(‘Khong co so nguyen to nho hon’)

          else begin

                 n:=t-1;

                 while ktnt(n)=false then n:=n-1;

                 writeln(‘d1: ‘,n);

          end;

          n:=t+1;

          while ktnt(n)=false then n:=n+1;

          writeln(‘d2: ‘,n)

          readln

   end

   Bình luận

2. program nguyento;

   uses crt;

   var n,t:integer;

   function ktnt(k:integer):boolean;

   var l:integer;

   begin

          ktnt:=false;

          if k<2 then exit;

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

                 if k mod l=0 then exit;

          ktnt:=true;

   end;

   BEGIN

          clrscr;

          write(‘Nhap vao t = ‘);   readln(t);

          if t<=2 then writeln(‘Khong co so nguyen to nho hon’)

          else begin

                 n:=t-1;

                 while ktnt(n)=false then n:=n-1;

                 writeln(‘d1: ‘,n);

          end;

          n:=t+1;

          while ktnt(n)=false then n:=n+1;

          writeln(‘d2: ‘,n);

          readln;

   end.

          

   Bình luận