Question

một số nguyên gọi là palindrom nếu nó đọc từ trái sang cung bằng đọc từ phải sang . ví dụ 121 là 1 số palindrom . nhập 1 dãy n phần tử nguyên dương từng bàn phím , 5<=n<=20 và các phần tử có 2 đến 4 chữ số . in ra các số palindrom trong dãy

Answer 1

uses crt;
var a:array[1..20] of longint;
i,n:longint;
function kt(k:longint):longint;
var d,l:longint;
begin
d:=0;
while k<>0 do
begin
l:=k mod 10;
k:=k div 10;
d:=d*10+l;
end;
kt:=d;
end;
begin
clrscr;
write('Nhap n: '); readln(n);
if (n>=5) and (n<=20) then begin
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
write('Cac so palindrom trong day la: ');
for i:=1 to n do
if kt(a[i])=a[i] then write(a[i],' '); end else write('Ko thoa man dieu kien cua n');
readln
end.