Предмет: Информатика,
автор: zzzPhenomenalOnezzz
Paskal Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы.(предложение, состоящее из слов, разделенных
одним или несколькими пробелами (без знаков препинания), предложение
заканчивается точкой)
С комментариями, пожалуйста!
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст, завершив его точкой:'+NewLine);
s:=s[:Pos('.',s)];
var k:=s.ToWords.Select(w->w.MatchValues('b[A-ZА-ЯЁ][a-zа-яё]*b'))
.Where(w->w.Count>0).Count;
Writeln('Найдено слов: ',k)
end.
Пример
Введите текст, завершив его точкой:
Карл у Клары украл кораллы Клара у Карла украла кларнет.
Найдено слов: 4
Примечание: Буквы латинского алфавита также обрабатываются.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст, завершив его точкой:'+NewLine);
s:=s[:Pos('.',s)];
var k:=s.ToWords.Select(w->w.MatchValues('b[A-ZА-ЯЁ][a-zа-яё]*b'))
.Where(w->w.Count>0).Count;
Writeln('Найдено слов: ',k)
end.
Пример
Введите текст, завершив его точкой:
Карл у Клары украл кораллы Клара у Карла украла кларнет.
Найдено слов: 4
Примечание: Буквы латинского алфавита также обрабатываются.
Автор ответа:
0
Фильтр пропускает только то, что удовлетворяет регулярке, а там только буквы.
Автор ответа:
0
там это и есть...
Автор ответа:
0
Ну так потому точку я и удалял )))
Автор ответа:
0
я поняла
Автор ответа:
0
А с информатикой в школе беда потому, что её превратили в самый сложный предмет, а учителей брать негде.
Интересные вопросы
Предмет: Английский язык,
автор: bogdan2959
Предмет: Математика,
автор: nastyaasd
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Зубило
Предмет: Физика,
автор: sashastalnenko