10) 4
5) возможно имеется в виду BIOS
Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
Нет вася не прав так как в кодировании получилось бы 3 бита
В колоде 4 туза, следовательно шанс вытащить туза 4/32=1/8.
Неопределенность уменьшилась в восемь раз, 8=2 в третьей степени.
<span>Поэтому информации 3 бита. Вот,только-я знаю эту задачу,и там должно быть записано-32 карты</span>
Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.