Найти первое слово второго предложения

@Xleb · Регистрация: 07.03.2015

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

работа со строками.предложения разделяются только точками.нужно найти первое слово второго предложения.

@Cuellius · 29.06.2015, 20:49

Pascal

program z1;
var
  s, first_word : string;
begin
  readln(s);
  Delete(s, 1, Pos('.', s));
  while(s[1] = ' ') do Delete(s, 1, 1);
  first_word := Copy(s, 1, Pos(' ', s));
  writeln(first_word);
end.

@Puporev · 29.06.2015, 20:51

Pascal

1	Copy(s, 1, Pos(' ', s)-1)

@Arigato · 30.06.2015, 02:53

Pascal

var
  s: string;
begin
  readln(s);
  delete(s,1,pos('.',s));
  writeln(copy(s,1,pos(' ',s)-1));
end.

@Xleb 1 / 1 / 1 Регистрация: 07.03.2015 Сообщений: 76
		1
	Найти первое слово второго предложения 29.06.2015, 20:00. Показов 482. Ответов 3 Метки нет (Все метки) работа со строками.предложения разделяются только точками.нужно найти первое слово второго предложения. 0

	30.06.2015, 02:53