// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin var s: =readlnstring('введите слово: ').tolower; if s=reversestring(s) then writeln('перевертыш') else writeln('не перевертыш') end. тестовое решение: введите слово: шалаш перевертыш введите слово: револьвер не перевертыш
Спасибо
Ответ дал: Гость
var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
Популярные вопросы