Дано предложение. напечатать все символы, расположенные между 1 и 2 запятой. если 2 запятой нет, то должны быть напечатаны все символы, расположенные после единственной запятой.

146

441

Посмотреть ответы 2

Ответы на вопрос:

zemkina347

Информатика

4,8(81 оценок)

// pascalabc.net 3.0, сборка 1076 var s,ss: string; i,n,p: integer; begin write('введите строку: '); readln(s); n: =length(s); p: =pos(',',s); if p in [1..n-1] then begin ss: =copy(s,p+1,n-p); n: =length(ss); p: =pos(',',ss); if p=0 then writeln(ss) else writeln(copy(ss,1,p-1)) end else writeln('*** нечего выводить ***') end. тестовые решения: введите строку: 01234,45679,1011213,14151617 45679 введите строку: 01234,45679101121314151617 45679101121314151617 введите строку: 01234, *** нечего выводить ***