0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 74
1

Удалить из текста все слова короче k символов

15.01.2015, 23:24. Показов 2393. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан текст, состоящий только из маленьких латинских букв и запятых. Последовательность подряд идущих букв, окруженную запятыми (началом, концом строки), назовем словом. Слово может быть пустым.

Ваша задача — удалить из текста все слова короче k символов.


Входные данные
Первая строка входных данных — это текст, состоящий только из строчных латинских букв и запятых. Его длина не превосходит 1000 символов. На второй строке находится единственное число k — минимальная допустимая длина слова (0 ≤ k ≤ 1000).


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

input ,a,ab,abc,abcd
2

output ab,abc,abcd


input ,pam,,param,,param,,pam,,pam,
output param,param
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2015, 23:24
Ответы с готовыми решениями:

Удалить все слова на букву w из данного текста
2. Дана строка слов из латинских букв. Разработать программу, которая будет удалять все слова на...

Удалить из текста все слова, начинающиеся с гласных букв
Дан текст. Удалить из него все слова, начинающие с гласных букв. решить через строки

Операции со строками. Исключить все слова короче 4-х букв
Ребят, помогите пожалуйста...необходимы все 3 задачи. 1. В заданном предложении исключить все...

Из текста удалить все слова начинающиеся и заканчивающиеся на одну букву
Из текста удалить все слова начинающиеся и заканчивающиеся на одну букву.

2
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,602
Записей в блоге: 1
18.01.2015, 10:27 2
Лучший ответ Сообщение было отмечено abaranci как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var s,sl:string;
    i,k,count:byte;
Begin
    write('Строка: ');readln(s);
    write('Минимальное допустимая длина слова: ');readln(k);
    s:=s+',';
    sl:='';
    count:=0;
    While Pos(',',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      if Length(sl)>=k then 
      Begin
        inc(count);
        if count<>1 then write(',',sl) else write(sl);
      End;
    End;
End.
1
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 74
18.01.2015, 11:37  [ТС] 3
спасибо
0
18.01.2015, 11:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2015, 11:37
Помогаю со студенческими работами здесь

Удалить все слова из текста, которые имеют удвоенные буквы
Удалить все слова из текста, которые имеют удвоенные буквы и вывести на екран те что остались....

Строковые переменные. Удалить из текста все слова, заканчивающиеся на открытый слог
1. Дан текст. Удалить в нём все слова заканчивающиеся на открытый слог; 2. Удалить из текста...

Дана строка символов.Удалить из нее все слова, имеющие нечетную длинну
Дана строка символов.Удалить из нее все слова, имеющие нечетную длинну. Словами считать группы...

Из данной строки текста удалить все слова, входящие в неё в точности n раз
Из данной строки текста удалить все слова, входящие в неё в точности n раз.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru