var s:string;
i:byte;
begin
readln(s);
for i:=length(s)downto 1 do
if s[i]=s[1]then delete(s,i,1);
writeln(s);
readln;
end.
Похожие записи/страницы:
- В заданном предложении в каждом слове удалить все последующие вхождения первой буквы предложения. Новый текст…
- В заданном предложении вставить после буквы „о“ слог „ко“. Новый текст вывести на печать - Pascal(Паскаль)
- В тексте в слове с четным количеством букв удалить первую букву, в слове с нечетным количеством букв - удалить…
- Подсчитать количество предложений. Расставить предложения по возрастанию количества слов в каждом - Pascal(Паскаль)
- В текстовом файле input.txt записан русский текст. Найти в тексте слова, содержащие не менее трех букв из…
- Напечатать все слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все…
- Удалить из текста все буквы "о" - Pascal(Паскаль)
- Ввести в ЭВМ предложение длиной не более 70 символов. Подсчитать количество гласных букв в каждом его слове.…