Выяснить, является ли слово палиндромом

koshka1

написать программу , с помощью которой можно проверить является ли заданное слово словом-"оборотнем". Например, "maam" является словом-"оборотнем", а "mama" - нет. помогите очень прошу!
2 ответа

koshka1

uses crt;
var s,sp: string;
    i: integer;
begin
write('s=');
readln(s);
sp:='';
for i:=1 to length(s) do
    sp:=s[i]+sp;
if sp=s then writeln ('Оборотень')
        else writeln ('Не оборотень');
readkey
end.


koshka1

очень выручили)