Var s: string;
begin
s:= 'гонка';
writeln(s);
s[3] := 'р';
writeln(s);
end.
Общее количество кубиков - 24+8=32
Шанс достать красный кубик равен 24/32 = 3/4. Количество информации о том, что вытащен красный кубик будет равно ㏒₂(4/3) ≈ 0.415 бит
Шанс достать черный кубик равен 8/32 = 1/4. Количество информации о
том, что вытащен черный кубик будет равно ㏒₂(4) = 2 бит
Var n,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
case n of
3..9 : k:=1;
10..99 : begin
k:=1;
for i:=10 to n do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
end;
100..999:begin
k:=1;
for i:=10 to 99 do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
for i:=100 to n do
if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k:=k+1;
end;
end;
writeln('k = ',k);
end.
Пример:
n = 120
k = 21
1)для работы .2)из системного, блока, мыша, монитора и клавиатуры 3) с некоторыми программами и инструмент для создания новых идей 4)инструмент 5)больше 300 рублей (в моём стране больше 100 манат)