Ну начну с того что единицы измерения информации делятся как время (Секунды-минуты-часы-дни-месяца-года и т.д.). В единицах измерения информации входят:
1 байт = 8 битов
1 килобайт(кб) = 1024 байта
1 мегабайт(мб) = 1024 килобайта
1 гигабайт(гб) = 1024 мегабайт
1 терабайт(тб) = 1024 гигабайта
Достаточно таки лёгкая тема.
I=16*100*80*2000+(80*5)мб
1)16*100=1600 бита
2)1600*80=128000 бит
3)128000*2000=256000000бит=30,5 Мб
I=80*5+30,5=430,5Мб
Ответ:Да, рукопись поместиться на флешке, обьем рукописи равен 430,5 Мб
Var
a:array[1..3,1..3] of integer;
t:array[0..2] of boolean;
k:array[0..2] of integer;
i,j:integer;
res:boolean;
begin
for i := 1 to 3 do
for j := 1 to 3 do
read(a[i,j]);
for i := 0 to 2 do
begin
k[i] := 0;
t[i] := false;
end;
for i := 1 to 3 do
for j := 1 to 3 do
k[a[i,j]] := k[a[i,j]] + 1;
for i := 1 to 3 do
begin
if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then
t[a[i,1]] := true;
if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then
t[a[1,i]] := true;
end;
if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then
t[a[2,2]] := true;
if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then
t[a[2,2]] := true;
res := true;
if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then
res := false;
if t[1] and ( t[2] or (k[1] = k[2]) ) then
res := false;
if res then
writeln('YES')
else
writeln('NO')
end.
Набираешь полный флакон на 5 капель, переливаешь его в 7. Затем снова набираешь на 5 капель и опять сливаешь капли в 7. но на этот раз там уже было 5 капель. значит остается 3 капли в первом флаконе