Задача, текст из последних букв заданного текста Опции

[STAB]

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

Долго искал на форуме что-то подобное, ничего не нашёл. Рассчитываю на помощь форумчан

[STAB]

О, спасибо!!!

но: а если в тексте есть точки, запятые, или два пробела?

program posl_bukv;
USES CRT;
const
  probel = [' '];
var
  s, res: string;
  p:byte;
  i: integer;
begin
ClrScr;
readln(s);
  res := '';

{ Удаляем лишние пробелы }
	repeat
		p := Pos('  ', s);			{ Здесь 2 пробела !!! }
		if p > 0 then Delete(s, p, 1);
	until p = 0;

{ Удаляем пробел в начале строки }
	if s[1] = ' ' then
		Delete(s, 1, 1);

p := 1;
  while p <= length(s) do begin
    if (s[p] = ',') or (s[p] = '.') then delete(s, p, 1) { удаляем символ, если он точка или запятая }
    else inc(p);
  end;

  for i := 1 to length(s) do begin
    if ((i = length(s)) and not (s[i] in probel)) then res := res + s[i]
    else
      if ((i > 1) and (s[i] in probel) and not (s[i - 1] in probel))
      then res := res + s[i - 1];
  end;
  writeln(res);
  readln;
end.

Ещё раз спасибо volvo!!!!!!!!

Сообщение отредактировано: STAB - 17.12.2008 5:42