Если карандаш выбирали наугад и информация, что достали зеленый карандаш, несет 2 бита, то вероятность того, что достали зеленый карандаш, была равна 1/2^2 = 1/4. Значит, в коробке было 1/4 * 32 = 8 зеленых карандашей
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
516,22₁₀=5*10²+1*10¹+6*10⁰+2*10⁻¹+2*10⁻²
² ¹ ⁰⁻¹⁻²
17,03₁₀=1*10¹+7*10⁰+0*10⁻¹+3*10⁻²
¹ ⁰⁻¹⁻²
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
2 ^ i= N
N = 65536
i= 16
объём = 800*600*16 = 7680000 bit = 960000 bait = 937.5 Кбайт