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

Question

Информатика

Дарена

5 февраля, 14:06

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

+1

Ответы (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.