Создайте программу ** языке Паскаль, которая будет определять: является ли данная строка,...

Question

Создайте программу на языке Паскаль, которая будет определять: является ли данная строка, введенная пользователем, палиндромом. ( ТИП ОБЯЗАТЕЛЬНО CHAR) и использовать функцию Length. Срочно пожалуйста!

Answer 1

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.

Comments

а можно с помощью чар

---

через чар не получится. так как чар один знак. а стринг вся строка. даже если получится это будет долго все

---

СПАСИБО БОЛЬШОЕ!