Напишу на псевдокоде, потому что не указали язык программирования
ввод числа X
ввод числа Y
ЕСЛИ X>Y ТО
Y=X-Y
X=X*X
ИНАЧЕ
X=Y-X
Y=Y*Y
Вывод X,Y
CD это отражения ямок и горок которые кодируются 1 и 0| а различия в cd инфрокрасный лазер а в dvd красный лазер и в dvd меньшая длинна волны ёмкость DVD превосходит обычный cd
var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
1,5 Мбайта = 1572864 байта
4096 бит = 4 кбит = 0,5 кбайт
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.