Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Вводите:');
if s=s.Inverse then Writeln('Строка симметрична')
else Writeln('Строка несимметрична')
end.
Пример
Вводите: аргентинаманитнегра
Строка симметрична
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Вводите:');
if s=s.Inverse then Writeln('Строка симметрична')
else Writeln('Строка несимметрична')
end.
Пример
Вводите: аргентинаманитнегра
Строка симметрична
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад