Cho trước một số nguyên X (2

11/07/2021 Bởi Hadley

0 bình luận về “Cho trước một số nguyên X (2<X<500),hãy tìm hai số nguyên tố liên tiếp a và b nhỏ nhất sao cho |a-b|≥X. Hai số nguyên tố liên tiếp là hai số mà giữa h”

1. uses crt;
   var a,b,x: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(‘X= (2<X<500) ‘);readln(x);  
      a:=2; b:=3;
      while abs(b-a)<x do  
         begin
            a:=b; inc(b);
            while not(nt(b)) do inc(b);
         end;
      writeln(a,’ ‘,b);
   readln
   end.

   Bình luận