Question

Напишите программу удаляющая из текста все буквы совпадающие с его последней буквой

Answer 1

Uses crt;
var s:string;
n,i:integer;
begin
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=s[n] then delete(s,i,1);
writeln(s);
end.

Эта программа рассчитана на то, что удаляется и последний символ тоже

Answer 2

Var s:string; i:integer;
begin
read(s);
i:=1;
while i<length(s) do
if s[i]=s[length(s)] then s:=copy(s,1,i-1)+copy(s,i+1,length(s)-i)
else i+=1;
write(s)
end.

Answer 3

Для написания программы удаления всех букв в тексте, совпадающих с его последней буквой, можно воспользоваться, например, языком программирования Python. Вот пример простой программы на Python:

def удалить_буквы(текст):
    # Получаем последнюю букву текста
    последняя_буква = текст[-1]

# Удаляем все буквы, совпадающие с последней
    очищенный_текст = ''.join(символ for символ in текст if символ.lower() != последняя_буква.lower())

return очищенный_текст

# Пример использования
входной_текст = "Пример текста с повторяющимися буквами"
результат = удалить_буквы(входной_текст)

print("Исходный текст:", входной_текст)
print("Текст после удаления букв:", результат)

Эта программа определяет последнюю букву в тексте и создает новую строку, исключая все буквы, совпадающие с последней буквой. Функция `lower()` используется для игнорирования регистра букв и обработки как заглавных, так и строчных букв.