Палиндромом называется слово, которое одинаково читается как слева направо, так и справа
налево, например, в языке такими словами являются «radar» и «racecar».
света изучает язык и решила принять участие в дистанционном конкурсе
знатоков языка. но, когда она писала ответ на «найдите самое длинное слово,
которое является палиндромом», ошиблась и нажала на клавиатуре одну лишнюю клавишу.
определите, какую букву нужно удалить в набранном светой слове, чтобы это слово стало
палиндромом.
программа получает на вход строку из строчных букв, содержащую не менее 2
и не более 100 000 символов.
программа должна вывести единственное число – номер буквы в строке, при удалении
которой слово становится палиндромом. если при удалении любой буквы слово не станет
палиндромом, программа должна вывести число 0.
кто может написать на pascal'е программу.?
dasha20079
2
23.10.2019 14:48
43
Другие вопросы по теме Информатика
тошкк
01.12.2020 17:19
MARYA5478
01.12.2020 17:18
aleksandrakova4
01.12.2020 17:18
12345678йцуке
30.05.2023 12:44
maryvysotinap08vi8
30.05.2023 12:44
Svasik269
30.05.2023 12:44
gothalk2014
30.05.2023 12:42
renat20648643540
01.09.2019 10:40
Yuzalina11
01.09.2019 10:40
Популярные вопросы
- Яка цифра стоить у розряди тисячного дробу 2,3451...
3 - ЖАЗЫЛЫМ 5 -тапсырма. Қате жазылған сөздерді тап. Себебін түсіндір. Қою қаріппен...
1 - Задание 4 ( ) Транспорт питательных веществ А) Транспорт веществ в организме животных...
3 - 2. На повне окиснення етину витратили 120 л кисню. Обчисліть об єм етину, який...
2 - , решить хотя бы то, что сможете. Завтра последний день, как можно сдать. Буду...
2 - Де відбулась Наймасштабніша і найтрагічніша битва у казці «таємниця козацький...
2 - Үсынылған суреттердің бірін таңдап, ауызша мәтін құраңыз. Мәтінде сөз аралығындағы,...
2 - Яку з наведених властивостей має функція у = 3 sinх? А) парна; Б) зростає на R;...
2 - Упростите выражение 37.6х-(10-41.2х)+7.13...
2 - Дана правильная пятиугольная пирамида sabcd s вершина пирамиды докажите что as...
1
function ispal(s: string): boolean;
var t: string;
i: integer;
begin
t:='';
for i:=length(s) downto 1 do t:=t+s[i];
if t=s then ispal:=true
else ispal:=false;
end;
var s,t: string;
i,f: integer;
begin
readln(s);
f:=0;
t:='';
for i:=1 to length(s) do
begin
t:=s[i];
delete(s,i,1);
if ispal(s) then
begin
f:=1;
insert(t,s,i);
break;
end;
insert(t,s,i);
end;
if f=1 then write(pos(t,s))
else write(0);
end.