Пусть N - число мест в ряду, M - число рядов в зале
![H = \log_24 + \log_2N + \log_2M = 2 + \log_2N + \log_2M](https://tex.z-dn.net/?f=H+%3D+%5Clog_24+%2B+%5Clog_2N+%2B+%5Clog_2M+%3D+2+%2B+%5Clog_2N+%2B+%5Clog_2M)
1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
n:integer;
s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do
begin
s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
n:=n+1
end;
writeln(n)
end.
2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
begin
s:=exp(n)-1000*Ln(n);
n:=n+1
end;
writeln(n)
<span>end.</span>