Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми

11.11.2012, 18:13. **Показов** 3080. **Ответов** 2

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

Помогите пожалуйста

Нужно прогу
Дана строка с несколькими запятыми. Получите слово между первой и второй запятыми!

Заранее спасиб)

@КонецСвета · 11.11.2012, 18:36

Pascal

uses crt;
var s,sl: string;
    i: byte;
begin
write('s='); readln(s);
sl:='';
i:=pos(',',s)+1;
while s[i]<>',' do
      begin
      sl:=sl+s[i];
      inc(i);
      end;
writeln(sl);
readln;
end.

пс проверка на наличие 2 запятых не производится!

@CodeR · 11.11.2012, 19:16

Pascal

Var s:string;
Begin
    write('Введите строку: ');readln(s);
    Delete(s,1,Pos(',',s));
    writeln(Copy(s,1,Pos(',',s)-1));
    readln;
End.

Monique
		1
	Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми 11.11.2012, 18:13. Показов 3080. Ответов 2 Метки нет (Все метки) Помогите пожалуйста Нужно прогу Дана строка с несколькими запятыми. Получите слово между первой и второй запятыми! Заранее спасиб)

	11.11.2012, 19:16

Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми

Решение