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

liz041 liz041    2   19.05.2019 06:50    2

Ответы
kgatikha1 kgatikha1  12.06.2020 11:25

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика