Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.
Тыква
.........................................,,,,,,,,,......
Ответ:
1) =(СТЕПЕНЬ(TAN(3*M9);2)+M9)/(ABS(M9)+1)-M9
2) =(ABS(M9)+2)/(EXP(M9)+1)-СТЕПЕНЬ(TAN(2*M9);4)