Составьте программу,выясняющую,является ли данное слово перевертышем(так называются слова,читвющиеся одинаково слева направо и справа налево, например:топот,шалаш)

Составьте программу,выясняющую,является ли данное слово перевертышем(так называются слова,читвющиеся одинаково слева направо и справа налево, например:топот,шалаш)
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.NET 3.0 begin   var s := ReadString('Введите слово:');   for var i := 1 to s.Length div 2 do      if s[i] <> s[s.Length - i + 1] then      begin       write('Не перевертыш');       exit;     end;   write('Перевертыш') end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы