Question

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

Answer 1

// 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,
*** Нечего выводить ***

Answer 2

Для выполнения задачи, вам потребуется использовать программирование. Вот пример кода на языке Python, который выполняет указанную задачу:

pythonCopy code
# Ваше предложение
sentence = "Дано предложение. Напечатать все символы, расположенные между 1 и 2 запятой. Если 2 запятой нет, то должны быть напечатаны все символы, расположенные после единственной запятой."

# Разделяем предложение по запятым
parts = sentence.split(',')

# Если есть хотя бы две запятые, выводим символы между ними
if len(parts) >= 3:
    result = parts[1].strip()
else:
    # Иначе выводим символы после первой запятой
    result = parts[0].split(',')[1].strip()

print(result)

Этот код разделит предложение на части, используя запятые в качестве разделителей, и затем выведет символы между первой и второй запятой, если в предложении есть хотя бы две запятые. В противном случае он выведет символы после первой запятой.