Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дано слово . Проверить является ли оно перевертышем(перевертышем называется слово ,читаемое одинакого как с начала так и с конца ),

Ответ оставил Гость

var slovo,reverse:string;
var i:integer;
begin
   write(slovo:);
   readln(slovo);
   for i:=length(slovo) downto 1 do
     reverse:=reverse+slovo[i];
   if(slovo=reverse) then writeln(perevertish)
   else writeln(ne perevertish);
   readln;
end.