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

Question

Информатика

Всеволодушка

11 мая, 06:59

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

+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.