palindro.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 17 行

program palindrom;
{sa se verifice daca un nr. este palindrom. }
var  n,r,i,s:longint;
begin
write('n= ');
readln(n);
r:=n;
repeat
      begin
           i:=n mod 10;
           s:=s*10+i;
           n:=n div 10;
      end;
until n=0;
if s=r then writeln('numarul ',r,' este palindrom ')
       else writeln('numarul ',r,' nu este palindrom ');
end.