1) <span>I III V VII
2) </span><span>13,5
3) 340
4) 15410</span>
Была произведена серия из 5 подбрасываний монетки. В результате каждого подбрасывания монетка может выпасть орлом или решкой с равной вероятностью. Сколько бит информации будет нести в себе сообщение о том, что в результате второго и четвертого подбрасываний в этой серии монетка упала орлом. Орел во 2 и 4 подбрасывании , 8 комбинаций (01010, 11010, 11110, 11111, 01111, 01011, 01110, 11011)
Имеем log 2 (32 / 8) = log 2 (2^5 / 2^3) = log 2 (2^2) = 2 бит
Ответ 2 бит
program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.
Var
n, h, m, s: integer;
begin
read(n);
n := n mod (3600*24);
h := n div 3600;
m := n mod 3600 div 60;
s := n mod 60;
write(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
end.
var m:array[1..100000] of integer;
a,b,sum,sum2,n,k,i:integer;
begin
sum:=0;
k:=0;
sum2:=0;
readln(a,b,n);
randomize;
for i:=1 to n do begin m[i]:=random(a,b); if(m[i]<50) then begin sum:=sum+m[i]; k:=k+1; end;
if(m[i]>=50) then sum2:=sum2+m[i]; end;
for i:=1 to n do write(m[i],' ');
writeln;
writeln((sum/k):5:3,' ',(sum2/(n-k):5:3));
end.
