• Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран.
    Написать программу на языке: Pascal;

Ответы 1

  • // PascalABC.NET 3.2, сборка 1387 от 20.02.2017// Внимание! Если программа не работает, обновите версию!begin  var aw:=ReadlnString('Введите строку:').ToWords;  var c:=ReadlnChar('Введите букву:');  var s:=aw.Where(w->w.Last=c).JoinIntoString(',');  s.Printlnend.ПримерВведите строку: Моя замечательная и вообще чудесная строкаВведите букву: яМоя,замечательная,чудеснаяПримечание: Непонятно, зачем в задании говорится о счете количества слов, если не сказано, что с этим количеством делать.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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