Question

[Nguyễn Phương Bằng]

Dãy số đối xứng:

Cho một dãy số nguyên dương gồm N phần tử (1<=N<=100). Dãy số được gọi là đối xứng nếu viết các số theo thứ tự ngược lại ta vẫn được một dãy như dãy số ban đầu.

VD: Dãy số ban đầu là dãy số đối xứng 3,6,1,2,1,6,3.

-Dữ liệu vào: file văn bản DAYSO.INP.

+Dòng đầu chứa số nguyên n.

+Dòng thứ hai chứa n số nguyên dương, các số cách nhau một dấu cách.

-Kết quả: ghi vào file DAYSO.OUT gồm một số duy nhất là 1 nếu là dãy số đối xứng hoặc 0 nếu là dãy số không đối xứng.

Giúp mình nhe, rất biết ơn ạ!

Answer 1

[Nguyễn Lê Phước Thịnh]

const fi='dayso.inp';
fo='dayso.out';
var f1,f2:text;
a:array[1..100]of integer;
st,s:string;
n,i,kt,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
begin
str(a[i],s);
st:=st+s;
end;
kt:=0;
d:=length(st);
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(f2,1)
else writeln(f2,0);
close(f1);
close(f2);
end.

Answer 2

[Minh Lệ]

Program HOC24;

var s,st,t: string;

a: array[1..100] of integer;

n,i: integer;

begin

write('Nhap so tu nhien n='); readln(n);

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do

begin

str(a[i],t);

s:=s+t;

end;

for i:=length(s) downto 1 do st:=st+s[i];

if s=st then write(1) else write(0);

readln

end.