• Составить программу, выполняющую следующие действия:

    Вводит с клавиатуры строку 'Bloomedapplesandpears' (Расцветали яблони и груши).
    Определяет номер позиции, в которой находится буква r в исходной строке.
    Меняет местами слова ' Bloomed ' и 'pears'.
    Удаляет из исходной строки подстроку 'applesand '.

Ответы 5

  • спасибо
    • Автор:

      kenley
    • 6 лет назад
    • 0
  • спасибо
    • Автор:

      ernie0xqv
    • 6 лет назад
    • 0
  • Пожалуйста. Но лучше для "спасибо" пользоваться кнопочкой.
    • Автор:

      elijahlee
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var s:=ReadlnString('>');  var w1:='Bloomed';  var w2:='pears';   var w3:='applesand';  var i:=Pos('r',s);  Writeln('Позиция r: ',i);  i:=Pos(w2,s);  s:=s[:i]+w1;  s:=w2+s[w1.Length+1:];  Writeln(s);  i:=Pos(w3,s);  Delete(s,i,w3.Length);  Writeln(s)end.Тестовое решение> BloomedapplesandpearsПозиция r: 20pearsapplesandBloomedpearsBloomed
    • Автор:

      joseph54
    • 6 лет назад
    • 0
  • //Pascal ABC.NET 3.1 сборка 1256Var s,s1:string;beginreadln(s);writeln(pos('r',s));s1:='Bloomed';delete(s,1,length(s1));insert('pears',s,1);delete(s,length(s)-length('pears')+1,length(s1));insert(s1,s,length(s)+1);writeln(s);delete(s,pos('applesand',s),length('applesand'));writeln(s);end.Вывод:20pearsapplesandBloomedpearsBloomed
    • Автор:

      killian76
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years