Дана последовательность слов, напечатать все слова, предварительно преобразовав каждое из них

@radm1rkoo · Регистрация: 22.02.2012

Студворк — интернет-сервис помощи студентам

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

например:
слово: мама мыла окно
выдаст: мма мыла кно

Kodzaev · 18.05.2013, 10:23

Pascal

Var
  s,s1,ss: String;
  i: Byte;
BEGIN
Writeln('Введите текст: ');
Readln(s);
While s[1]=' ' do  //удаляем начальные пробелы
Delete(s,1,1);
While Pos('  ',s)>0 do  //удаляем лишние пробелы между словами
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do  //удаляем конечные пробелы
Delete(s,Length(s),1);
s:=s+' ';        //добавляем пробел в конец строки
Repeat
  s1:=Copy(s,1,Pos(' ',s)-1);
  For i:=Length(s1)-1 downto 1 do
  If s1[i]=s1[Length(s1)] Then
  Delete(s1,i,1);
  ss:=ss+s1+' ';
  Delete(s,1,Pos(' ',s));
until s='';
Writeln(ss);
Readln
END.

@radm1rkoo 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 5
		1
	Дана последовательность слов, напечатать все слова, предварительно преобразовав каждое из них 17.05.2013, 17:22. Показов 3340. Ответов 1 Метки нет (Все метки) Дана последовательность слов. напечатать все слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы. например: слово: мама мыла окно выдаст: мма мыла кно 0

Опции темы

Дана последовательность слов, напечатать все слова, предварительно преобразовав каждое из них

Решение