Вопрос по информатике:
Помогите пожалуйста написать программу в Паскаль:)
Дан произвольный текст на русском языке. Написать программу, которая выводит слова, начинающиеся с гласной буквы и содержащие не менее двух согласных.
- 22.11.2017 13:43
- Информатика
- remove_red_eye 10157
- thumb_up 47
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsGl(c:char):=Pos(c,'АEЁИОУЫЭЮЯаеёиоуыэюя')>0;
begin
var w:=ReadlnString('>').ToWords;
foreach var v in w do
if (v.Length>2) and IsGl(v[1]) then
if v.ToCharArray.Skip(1).Where(c->not IsGl(c)).Count>=2
then Println(v);
end.
Тестовое решение
> Очень непросто найти подходящие слова для осмысленных фраз - оно и понятно
Очень
осмысленных
- 23.11.2017 18:25
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.