Создайте программу на языке паскаль, которая будет определять: является ли данная строка, введенная пользователем, палиндромом. ( тип обязательно char) и использовать функцию length. !
program z1; var s:string; l:boolean; i,n :integer; begin writeln ('vvedite stroku'); readln (s); n:=length(s)div 2; for i:=1 to n do begin if s[i]=s[n+1] then l:=true else l:=false end; if l=true then writeln ('yes') else writeln ('no'); end.
var
s:string;
l:boolean;
i,n :integer;
begin
writeln ('vvedite stroku');
readln (s);
n:=length(s)div 2;
for i:=1 to n do
begin
if s[i]=s[n+1]
then l:=true
else l:=false
end;
if l=true
then writeln ('yes')
else writeln ('no');
end.