Написать программу в паскаль: ) дан произвольный текст на языке. написать программу, которая выводит слова, начинающиеся с гласной буквы и содержащие не менее двух согласных.
// 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.
Тестовое решение > Очень непросто найти подходящие слова для осмысленных фраз - оно и понятно Очень осмысленных
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.
Тестовое решение
> Очень непросто найти подходящие слова для осмысленных фраз - оно и понятно
Очень
осмысленных