20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.
1)1 мбайт = 1048576 байт
6*1048576= 6 291 456 байт
6мбайт = 6 291 456 байт
2) 1 мб = 1024 кб
6*1024 = 6144
6мбайт = 6144 кб
Javascript:var массив=[];for(var сч=0;сч<10;сч++)массив.push(Math.round(Math.random()*12)-6);for(var сч=0;сч<10;сч++)if(массив[сч]<0)массив[сч]=0;
134217728 ^ y бит = <span>8 ^ х бит
65536 ^ x бит = 16777216 ^ y бит
</span><span>
</span>134217728 ^ y бит = 8 ^ х бит
16777216 ^ y бит = 65536 ^ x бит
8 ^ y бит = (1/8192) ^x бит
2 ^ 3y бит = 2 ^ (-13x) бит
x = - (3y / 13), y = - (13x / 3)
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.