<span>Сколько надо лампочек, чтобы создать 15 различных сигналов (при этом лампочка может находиться в 2 состояниях: включена, выключена). Количество лампочек определяется по формуле log(2)15 </span>≈ 4 Или так (если без логарифмов): Нужно определить, в какую минимальную степень требуется возвести число 2, чтобы получить число ≥ 15. 2^1 = 2 2^2 = 4 2^3 = 8 2^4 = 16
{конструкция else для того если будут введены отрицательные x y} var x,y:real;begin readln(x,y); if (x*x*x*x*x+y)>0 then writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x))) else writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x))); <span>end.</span>
Const n=10; var a:array[1..n] of integer; k,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(9)+2; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('Четных: ',k,' нечётных: ',n-k); end.