Из последовательности слов напечатать все слова, отличные от последнего слова

@Александр Сычко · Регистрация: 22.11.2013

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

Надо написать программу, а я в программирование не силен. Дана непустая последовательность слов, содержащая от 1 до 8 букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова, отличные от последнего слова.

@CodeR · 26.04.2014, 07:07

Pascal

Var s,sl,st:string;
    i:byte;
Begin
    write('Последовательность слов: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    i:=Length(s);
    While (s[i]<>',')and(i<>0) do
    Begin
      st:=s[i]+st;
      Delete(s,i,1);
      dec(i);
    End;
    While Pos(',',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      if (st<>sl)and(sl<>'') then writeln(sl);
    End;
    readln;
End.

@Александр Сычко 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 8
		1
	Из последовательности слов напечатать все слова, отличные от последнего слова 25.04.2014, 15:40. Показов 2279. Ответов 1 Метки нет (Все метки) Надо написать программу, а я в программирование не силен. Дана непустая последовательность слов, содержащая от 1 до 8 букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова, отличные от последнего слова. 0

Опции темы

Из последовательности слов напечатать все слова, отличные от последнего слова

Решение