Даны натуральное число n и символы S1, …, Sn (строка), среди которых есть двоеточия. Получить все символы строки, расположенные между первым и вторым двоеточием. Если вто-рого двоеточия нет, то получить все символы, расположенные после первого двоеточия — Pascal(Паскаль)

var
 S: string;
Begin
 S:='dfds fds :12345 fdfs';
 S:=copy(S,pos(':',S)+1,length(S));
 if pos(':',S)<>0 then
  S:=copy(S,1,pos(':',S)-1);
 writeln(S);
End.

Похожие записи/страницы:

Leave a Comment

23 − 20 =