Ну начну с того что единицы измерения информации делятся как время (Секунды-минуты-часы-дни-месяца-года и т.д.). В единицах измерения информации входят:
1 байт = 8 битов
1 килобайт(кб) = 1024 байта
1 мегабайт(мб) = 1024 килобайта
1 гигабайт(гб) = 1024 мегабайт
1 терабайт(тб) = 1024 гигабайта
Достаточно таки лёгкая тема.
64 символа = 6 битная кодировка
6*5=30 бит
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
1) Потому что каждый из них обладает преимуществами и недостатками
2) Действительно для решения данной задачи необходимо всего одно взвешивание Ход решения: Берём две любые монетки и взвешиваем их. Если они равны в весе, то Третья монетка фальшивая. Если Первая весит больше второй, то вторая фальшивая. Иначе Первая фальшивая.