Обработка строковых данных

@ChelseaFC · Регистрация: 30.09.2010

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

Прошу помощи
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных русских букв; между соседними словами-запятая, за последним словом точка. Напечатать все слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова последнюю букву.

@ChelseaFC · 03.12.2010, 14:43 **[ТС]**

Вот что сделал немагу продолжить. Помогите.

Pascal

program tema7;
var
  s2,s,s1,d:string;
  i,k,n:integer;
begin
 writeln('Vvedite stroku: ');
 read(s); k:=1;
begin
 for i:=1 to length(s) do
 if(s[i]=',') or (s[i]='.') then
  begin
   s1:=copy(s,k,i-k); k:=i+1; d:=s1;
    end;
   n:=length(d);
   delete; //что потом...

@ChelseaFC 2 / 2 / 4 Регистрация: 30.09.2010 Сообщений: 83
		1
	Обработка строковых данных 26.11.2010, 14:12. Показов 1329. Ответов 1 Метки нет (Все метки) Прошу помощи Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных русских букв; между соседними словами-запятая, за последним словом точка. Напечатать все слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова последнюю букву. 0

	03.12.2010, 14:43

Опции темы

Обработка строковых данных

Решение