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