Question

nhập 1 số tự nhiên n được gọi là số palindrome ế cách viết thạp phan của số đó đối xứn (21122,353) nhập vào số nguyên dương dưới 10000, hãy viết kiể m tra số có phải là số palidrome không?

vd nhập n=353

xuất 353 la số palindrome

Answer 1

var

n,n1:temp:integer;

begin

repeat

write(' nhap n : '); readln(n);

if ( n < 32000 ) and ( n > -32000) then break { break là lệnh dừng ngay vòng lập }

until (1=1);

n1:=0;

temp:=n;

while temp > 0 do

begin

n1:= n1 * 10 + temp mod 10;

temp:= temp div 10 ;

end;

if n1=n then write(' doi xung ') else write(' ko doi xung ');

readln;

end.