program zzz;
var x,y,z:real;
function log(x,b:real):real;
begin
log:=ln(x)/ln(b)
end;
begin
write('x?');read(x);
write('y?');read(y);
z:=log(x,2)+log(y,3);
write('z=');writeln(z);
end.
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
256 цветов - 8-ми битная шкала цветности, т. е. 8 бит на точку.
<span>120 байт = 960 бит. </span>
<span>960 бит/8 битов = 120 точек</span>
14 детей в классе
7 математика
5 оба
2 только история
12 девочек и мальчиков
9 мальчиков
3 девочки