Question

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

Answer 1

var
  s: string;

begin
  readln(s);
  foreach w: string in s.Split(' ') do
    write(w[1] + w.Replace(w[1], '') + ' ');
end.