profile
Опубликовано 5 лет назад по предмету Информатика от gatling1

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

  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,
    *** Нечего выводить ***
Самые новые вопросы