Дано натуральное число. выяснить, является ли оно палиндромом ("перевертышем"), т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево. написать на паскале
Program gt; var a,b,i,q,l:integer; begin readln(a); l:=a;b:=0; while a>0 do begin q:=a mod 10; b:=b*10+q; a:=a div 10; end; if(l=b)then writeln('yes')else writeln('no'); end.
var a,b,i,q,l:integer;
begin
readln(a);
l:=a;b:=0;
while a>0 do
begin
q:=a mod 10;
b:=b*10+q;
a:=a div 10;
end;
if(l=b)then writeln('yes')else writeln('no');
end.