Em hãy viết chương trình để xác đinh xem 1 số có phải là số nguyên tố đối xứng hay không.Một số nguyên được gọi là đối xứng nếu nó bằng với số ngược c

0 bình luận về “Em hãy viết chương trình để xác đinh xem 1 số có phải là số nguyên tố đối xứng hay không.Một số nguyên được gọi là đối xứng nếu nó bằng với số ngược c”

1. var f,g:text;

   i,n:int64;

   const

   fi=’input.inp’;

   fo=’output.out’;

   function nt(n:inter64):boolean;

   var i1,d:interger;

   begin

   d:=0; 

   nt:=false;

   for i1:=1 to n do 

   if n mod i=0 then d:=d+1;

   if d=2 then nt=true

   end;

   function dx(n:inter64):boolean;

   var s2,s1:string; j:integer;

   begin

   s2:=”;

   str(n,s2);

   s1:=”;

   for j:=length(s2) downto 1 do 

   s1:=s1+s2[j];

   if s1=s2 then dx:=true

   else dx:=false;

   end;

   begin 

   assign(f,fi); reset(f);

   assign(g,fo); rewrite(G);

   read(f,n);

   if nt(n)=true then

   begin 

   if dx(n)=true then write(g, ‘true’)

   else write(g,’false);

   end

   else write(g,’false’);

   cllose(f);

   close(g);

   end.

   Bình luận

2. Const Fi=’NTDX.INP’;
         Fo=’NTDX.OUT’;
   Var f,g: text;
       n: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod 2 = 0 then exit(false);
           Exit(true);
   End;

   Function dx(a: longint): boolean;
   Var b,s: longint;
   Begin
           b:=a; s:=0;
           While a<>0 do
           Begin
                   s:=s*10+a mod 10;
                   a:=a div 10;
           End;
           If a=s then exit(true);
           exit(false);
   End;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,n);
           If (ngto(n)) and (dx(n)) then Write(g,’Ngto doi xung’)
           Else Write(g,’Khong phai ngto doi xung’);
           Close(f);
           Close(g);
   End

   Bình luận