pal'.pas

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

program palindrom;
{sa se nr. palindroame mai mici ca p. }
var  p,n,r,i,s,k:longint;
begin
write('p= ');
readln(p);
for n:=1 to p do
      begin
         r:=n;
         k:=n;
         repeat
               begin
                    i:=k mod 10;
                    s:=s*10+i;
                    k:=k div 10;
               end;
         until k=0;
         if s=r then writeln('numarul ',r,' este palindrom ');
      end;
end.