• PascalABC. Вставить после каждого слова исходной строки, заканчивающегося на букву «о», слово «Ого». Уже видел решение этой задачи, но там программа выполнялась только когда после символа "о" стоял пробел. Т.е. когда слово с "о" на конце было последним и нужно было нажать enter для окончания ввода, программа не выполнялась, требовался пробел. Если хотите что-либо уточнить, задайте вопрос, но только по делу

Ответы 6

  • http://znanija.com/task/21136176
  • задание обновил, поставил 50 баллов
    • Автор:

      irene81
    • 6 лет назад
    • 0
  • Я не сильно спец в разных версиях. Щас сделаю другой вариант, но поймёт её ваш Паскаль или нет, сказать не могу
  • Попробуй вместо 't:t,insert(i,s);' вставить: 'insert(s,t,i);'
  • Прекращайте писать под моим решением фразы, к решению не относящиеся. Иначе я начну их помечать, как спам, а спам тут наказуем.
    • Автор:

      compton
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var a:=ReadlnString('->').ToWords;  var s:='';  foreach var w in a do begin    s+=w+' ';    if Pos(w.Right(1),'оО')>0 then s+='ого '    end;  Writeln(s);end.Пример-> У нас столько всего интересного есть и зеленого и красногоУ нас столько ого всего ого интересного ого есть и зеленого ого и красного ого
    • Автор:

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

Войти через Google

или

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

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

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