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

11/07/2021

By Hadley

Cho trước một số nguyên X (2 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Cho trước một số nguyên X (2

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.