Дано: a=100111002,b=101101102 в двоичной системе счисления.
какое из чисел равно их сумме
00011
11100010
11100010
101010010

Единицы измерения информации 
В 1 бит можно записать один двоичный символ.
1 байт = 8 бит
В кодировке ASCII в один байт можно записать один 256 символьный код
В кодировке UNICODE один 256 символьный код занимает в памяти два байта
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
1 терабайт = 1024 гигабайтФормула Хартли 2 i = N где i- количество информации в битах, N - неопределенностьТаблица степеней двойки, которая показывает сколько информации можно закодировать с бит i012345678910N=2 i12481632641282565121024Чтобы вычислить информационный объем сообщения надо количество символов умножить на число бит, которое требуется для хранения одного символа

Например: двоичный текст 01010111 занимает в памяти 8 бит 
Этот же текст в кодировке ASCII занимает 8 байт или 64 бита 
Этот же текст в кодировке UNICODE занимает 16 байт или 128 бит. 

На pascal можно так:

Объяснение:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Windows;

type

 { TForm1 }

 TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { private declarations }

 public

   { public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,i:integer;

begin

 x:=0; y:=0;

  for i:=1 to 500 do

 begin

   x:=random(x+i);

   y:=random(y+i);

 if x>600 then x:=random(x-i);

 if y>800 then y:=random(y-i);

 canvas.Pen.Color:=RGB(i*5,128*i,-128*(i+1));

 canvas.Pen.Width:=2;

 canvas.LineTo(x,y);

 end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 Form1.close;

end;

end.