Паскаль.Текст.

@Ted Mosby · Регистрация: 10.06.2010

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

Составить программу, которая позволяет вывести часть текста между двумя любыми словами в предложений.Между какими именно задаёт пользователь.
К примеру в предложений 9 слов.Вывести текст между 2 и 5 словом.

@koorya · 14.06.2010, 22:35

Pascal

var
  t,s:string;
  i,a,b,p:integer;
begin
  readln(t);
  readln(a,b);
  p:=0;
  s:='';
  for i:=1 to length(t) do
    begin
      if t[i]=' ' then
        p:=p+1;
      if (a<=p)and(p<=b) then
        s:=s+t[i];
    end;
    writeln(s);
  readln;
end.

слова в тексте должны быть разделены одним пробелом

@Ted Mosby · 15.06.2010, 09:51 **[ТС]**

Эта программа не всегда работает.
Не всегда выводит то что нужно.
Попробуй проверить.

@Ted Mosby 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 34
		1
	Паскаль.Текст. 14.06.2010, 22:20. Показов 1533. Ответов 2 Метки нет (Все метки) Составить программу, которая позволяет вывести часть текста между двумя любыми словами в предложений.Между какими именно задаёт пользователь. К примеру в предложений 9 слов.Вывести текст между 2 и 5 словом. 0

@Ted Mosby 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 34
	15.06.2010, 09:51 [ТС]	3
	Эта программа не всегда работает. Не всегда выводит то что нужно. Попробуй проверить. 0

Опции темы

Паскаль.Текст.

Решение