Строка является палиндромом, если слева направо и справа налево она читается одинаково, например "кабак", "боб", "asdfggf' dsa". Составьте алгоритм и напишите программу, определяющую, является ли строка палиндромом.
Program gt; var a,b:string; l,i:integer; begin readln(a); l:=length(a); b:=''; for i:=l downto 1 do b:=b+a[i]; if(a=b)then writeln('YES')else writeln('NO'); end.
Answers & Comments
Verified answer
Program gt;var a,b:string;
l,i:integer;
begin
readln(a);
l:=length(a);
b:='';
for i:=l downto 1 do
b:=b+a[i];
if(a=b)then writeln('YES')else writeln('NO');
end.