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

Question

Информатика

Анюта

31 января, 07:17

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

+3

Ответы (1)

Знаете ответ на вопрос?

Леонтия · Answer 1

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.