операции над строками

[lialia]

дана последовательность содержащая от 2 до 15 слов,в каждом из которых от 2 до 10 латинских букв,между соседними словами – не менее одного пробела , за последним словом точка. Напечатать все слова ,отличные от последнего слова ,удалив из каждого слова все последующие вхождения первой буквы последовательности
помогите плизз,у меня не получается

[Stilet]

А что именно не получается?

[lialia]

все с самого начала,не могу разобраться просто

[Stilet]

Вот и выкладывай что там у тебя с начала и что не понятно

[lialia]

как написать что последовательность от 2 до 15 символов,в каждом из которых от 2 до 10 латинских букв ?

[Poma][a]

Вот смотрите я Вам скажу, я дам Вам 1000 рублей, а Вы должны их потратить. Не важно откуда эти деньги, известно что я дам Вам ровно 1000 рублей, ни копейкой больше, ни копейкой меньше.

Тоесть, шо нам надо?
Прочитать строку. Найти последнее слово, удалить все слова = последнему слову. Удалить все символы = s[1]. (кроме самого первого символа). Напечатать строку. (Перед выполнением всех этих операций удалить лишние пробелы)

[lialia]

так: сначала объявляем s1:string ;
begin
readln (s1);
последнее слово это вот это?
Последнее слово

 Uses
 Crt;
Var
 s,s2:string;
 i:byte;
begin
readln(s);
for i:=length(s) downto 1 do
 if s[i] in [' ','.',','] then delete(s,i,1)
else break;
s2:='';
for i:=length(s) downto 1 do
if not(s[i] in [' ','.',',']) then s2:=s[i]+s2
else break;
writeln(s2);
end.

а потом как ? или я не то написала

[TinMan]

Сообщение от lialia

а потом как ? или я не то написала

ляля, хочешь, я тебе скажу, почему тебе не очень охотно помогают (хотя обычно тут к девочкам довольно мягко относятся)? Да потому что условие задачи поставлено неточно. Есть несоответствия, их надо прояснять, но все по опыту знают, что это очень мутрно - добиваться от студента точной постановки задачи, если она с самого начала была поставлена им неверно. И поэтому никому не хочется связываться. Ясно?

Что значит это, например:

дана последовательность содержащая от 2 до 15 символов, в каждом из которых от 2 до 10 латинских букв

Ну скажи, как может быть в СИМВОЛЕ от 2 до 10 латинских букв?? Я думаю, что красное слово на самом деле не "символов", а "слов".. Я угадал? Если да, это упрощает ситуацию. Но дальше все равно есть неясности..
Вот скажи - почему НАМ должно хотеться помочь тебе, если ТЫ САМА не можешь даже набрать условие правильно?? Раз тебе все равно - нам тоже все равно..
Ты сама себе вредишь, а думаешь, наверное, что люди все злые и не хотят помочь.

Короче - исправь условие. А там видно будет..

[MihalNik]

a:= s[1];
last:= length(s);
while (s[last-1]<>' ') do
  dec(last);
first:= 1;
while (first < last) do begin
  i:= 0;
  while (s[first+i] = s[last+i]) and
   (i <= length(s) - last) do
    inc(i);
  if (i <= length(s) - last) or
   (s[first + i] <> ' ') then begin{выводим слово}
    if (first = 1) then write(s[first]);
    while(s[first] <> ' ') do begin
      if (s[first] <> a) then write(s[first]);
      inc(first);
      end;
    end
  else first:= first + i;
  inc(first);
  end;

[lialia]

Сообщение от TinMan

ляля, хочешь, я тебе скажу, почему тебе не очень охотно помогают (хотя обычно тут к девочкам довольно мягко относятся)? Да потому что условие задачи поставлено неточно. Есть несоответствия, их надо прояснять, но все по опыту знают, что это очень мутрно - добиваться от студента точной постановки задачи, если она с самого начала была поставлена им неверно. И поэтому никому не хочется связываться. Ясно?

Что значит это, например:

Ну скажи, как может быть в СИМВОЛЕ от 2 до 10 латинских букв?? Я думаю, что красное слово на самом деле не "символов", а "слов".. Я угадал? Если да, это упрощает ситуацию. Но дальше все равно есть неясности..
Вот скажи - почему НАМ должно хотеться помочь тебе, если ТЫ САМА не можешь даже набрать условие правильно?? Раз тебе все равно - нам тоже все равно..
Ты сама себе вредишь, а думаешь, наверное, что люди все злые и не хотят помочь.

Короче - исправь условие. А там видно будет..

а нуу да,слов) извините)