Python Возьмем произвольное слово и проделаем с ним - вопрос №10639158 от ruslanbaxsiev79 21.10.2021 17:24

Question

Информатика: Python Возьмем произвольное слово и проделаем с ним следующую операцию: поменяем местами его первую согласную букву с последней согласной буквой, вторую согласную букву с предпоследней согласной буквой и т.д. Если после этой операции мы вновь получим исходное слово, то будем называть такое слово негласным палиндромом. Например, слова sos, rare, rotor, gong, karaoke являются негласными палиндромами. Вам требуется написать программу, которая по данному слову определяет, является ли оно негласным палиндромом.

ruslanbaxsiev79 · Answer

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function AutoMorph(n:integer):boolean;
begin
var s1:=n.ToString;
Result:=(s1=(n*n).ToString.Right(s1.Length))
end;

begin
var a,b:integer;
Write('Введите а и b: '); Read(a,b);
for var i:=a to b do
if AutoMorph(i) then Print(i)
end.

Тестовое решение:
Введите а и b: 1 10000
1 5 6 25 76 376 625 9376

Попробовал переписать функцию в более примитивный вид. По-моему, она не стала проще, только удлинилась...

function AutoMorph(n:integer):boolean;
begin
var s1:=IntToStr(n); // n переводим в строковое представление
var s2:=IntToStr(n*n); // n*n переводим в строковое представление
var l1:=Length(s1); // длина строки s1
s2:=RightStr(s2,l1); // правые l1 символов из s2
Result:=(s1=s2)
end;