1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
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.
.......................................................
<span>N = int(input("Введите число N"))
if N == 2*2
print("Yes")
if N == 2*3
print("No")
>= больше равно
> больше
<= менше равно
< менше
== равно
!=не равно</span>