//Работает до 7 числа
//Dev-C++ 5.11 (C)
#include <stdio.h>
#include <math.h>
int main(void)
{long long unsigned int a,b,i,d;
i=2;
d=1;
scanf("%d %d",&a,&b);
while (pow(2,i-1)*(pow(2,i)-1)<=b)
{for(int j=2;j<(pow(2,i)-1)/2;j++)
if(int(pow(2,i)-1)%j==0)d=0;
if(d)
{d=pow(2,i-1)*(pow(2,i)-1);
if(d>=a)printf("%d \n",d);}
d=1;
i++;}
return 0;}
Program sr_arifm;
var N,s, sa, cifra: integer;<span>
begin
</span>write(‘N=’);
readln (N);
i:=0;
s:=0;
while N>=0 do
begin
cifra:=n mod 10;
i:=i+1;
if (i = 2) or (i=5) then s:=s+cifra;
n:= n div 10;
end;
sa:=s/2;
writeln (‘sa=’, sa);
end.
Общее количество кубиков - 24+8=32
Шанс достать красный кубик равен 24/32 = 3/4. Количество информации о том, что вытащен красный кубик будет равно ㏒₂(4/3) ≈ 0.415 бит
Шанс достать черный кубик равен 8/32 = 1/4. Количество информации о
том, что вытащен черный кубик будет равно ㏒₂(4) = 2 бит
//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8