Question

In Limbajul PASCAL: Se introduce un numar natural.Sa se verifice daca este palindrom.(Palindrom-numarul care coincide cu rasturnatul sau).DAU COROANA!

Answer 1

var x,inv,n:integer;

begin

write ('n='); readln (n);

n:=x; inv:=0;

while n<>0 do

begin

inv:=inv*10+x mod 10;

x:=x div 10;

end;

if x=inv then write ('Nr este palindrom');

             else write ('Nr nu este palindrom');

readln;

end.