Số đối xứng nhỏ nhất lớn hơn N

Question

Một số nguyên gọi là số đối xứng nếu viết dạng biểu diễn thập phân của số đó theo

chiều ngược lại vẫn thu được chính số đó. Cho số nguyên dương N có không quá 100 chữ

số. Hãy xác định số nguyên đối xứng nhỏ nhất lớn hơn N.

Dữ liệu vào từ file văn bản: nextpal.inp

 Dòng 1: Số nguyên N

Kết quả ghi ra file văn bản: nextpal.out

 Dòng 1: Số nguyên kết quả

Ví dụ

nextpal.inp	Nextpal.out
99	101

 

Answer 1

const fi='nextpal.inp';

          fo='nextpal.out';

var f:text;

    N:integer;

 

//chuong trinh nhap

procedure nhap;

begin

    assign(f,fi);

    reset(f);

    readln(f,N);

    close(f);

end;

 

//tim so doi xung

function doixung(N:integer):boolean;

var i,m:integer;

    ch:string;

begin

     str(N,ch);

     m:=length(ch);

     while i <= (m div 2) do</span>

         begin

             if ch[i]=ch[n-i+1] then

                i:=i+1;

         end;

     if i> (n div 2) then

        doixung:=true

     else

        doixung:=false;

 

end;

 

procedure main;

var tam:integer;

begin

     assign(f,fo);

     rewrite(f);

     tam:=N+1;

     while doixung(tam)=false do

          tam:=tam+1;

     writeln(f,tam);

     close(f);

end;

 

//chuong trinh chinh

begin

     nhap;

     main;

     readln;

end.