4 умножить на 2=8.
По формуле Хартли вычисляем логарифм восьми по основанию два.
3 бита.
<span />
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
X,y,z >=0
code:
input x
input y
input z
if x>=0 or y>=0 or z>= then end
max1=x+y+z
max2=x*y*z
print "max(";max1;",";max2;")"
const m=10;
var c:array[1..m] of integer;
max,min,i,j: integer;
begin
writeln('Массив:');
for i:=1 to m do
begin
c[i]:=random(50);
write(c[i],' ');
end;
writeln;
max:=c[1];
min:=c[1];
for i:=2 to m do
begin
if c[i]>max then max:=c[i];
if c[i]<min then min:=c[i];
end;
writeln('max = ',max,' min = ',min,' max/min = ',max/min:5:2);
end.
Пример:
Массив:
27 29 35 42 30 42 27 42 21 31
max = 42 min = 21 max/min = 2.00