Дано слово . Проверить является ли оно ''перевертышем''(перевертышем называется слово ,читаемое одинакого как с начала так и с конца ),
Дано слово . Проверить является ли оно ''перевертышем''(перевертышем называется слово ,читаемое одинакого как с начала так и с конца ),
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы