Вопрос по информатике:
Написать программу для подсчета количества слов максимальной длины в тексте. Текст вводится с клавиатуры. Признак окончания текста точка.
На паскале пожалуйста
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.11.2015 14:28
- Информатика
- remove_red_eye 19480
- thumb_up 13
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст, оканчивающийся точкой:'+NewLine);
var p:=Pos('.',s); if p>0 then s:=s[:p]; // обрезать лишнее
var a:=s.ToWords;
var sb:=a.Select(w->w.Length);
var max:=sb.Max;
Writeln('Количество слов максимальной длины равно ', sb.Where(x->x=max).Count)
end.
Пример
Введите текст, оканчивающийся точкой:
мама мыла раму маша ела кашу. А это не считается!
Количество слов максимальной длины равно 5
- 07.11.2015 18:46
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.