1 гб-1024 мбайта.
Они существуют для записи небольших файлов (до 1000мб) .Так же туда может поместиться 1 час видео.
Пусть вероятность достать синий шар p
тогда количество информации в сообщении о том, что добыт синий
i = -log(p)/log(2)
-3*log(2) = log(p)
log(2^(-3)) = log(p)
p = 1/8
если общее число шаров N
то синих N/8
красных N/8*3
белых N-N/8-3*N/8 = N/2
и по условию белых 36
N/2 = 36
N = 72
это ответ :)
// PascalABC.NET 3.0, сборка 1073
var
Bag,Bagaj:array[1..2] of longint;
begin
Bagaj[1]:=5; Bagaj[2]:=43600;
{ перенос Bagaj -> Bag }
Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];
Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);
Bag[1]:=4; Bag[2]:=24540;
{ перенос Bag -> Bagaj }
Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];
Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);
end.
<em><u>Тестовое решение:</u></em>
Предметов- 5, общий вес 43600
Предметов- 4, общий вес 24540
Program summa;
var a,b,s,y,d:integer;
n: real;
begin
writeln('Введите любых числа');
readln(a,b);
S:=a+b;
Y:=a-b;
N:=a/b;
D:=a*b;
writeln('сумма=',S);
writeln('разность=',y);
writeln('деление=',N);
writeln('произведение=',D);
end.
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
