Сообщение о том что из коробки взяли одну конфету, несет 3 бита информации. сколько конфет в коробке?

uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.

Відповідь:

Відповідь:procedure TForm1.Button2Click (Sender: TObject);  

var a: array [1..10] of integer; i, j, min, nmin: integer;  

begin  

for i : 1 to 10 do

a[i] : StrToInt (Memo1.Lines[i-1]);  

for i : 1 to 9 do  

begin  

min : a[i];  

nmin : i;  

for j : i+1 to 10 do  

if a[j] < min then  

begin  

min : a[j]; nmin : j;  

end;  

a[nmin] : a[i];  

a[i] : min;  

end;  

Memo2.Lines.Clear;  

for i : 1 to 10 do

Memo2.Lines.Append (IntToStr (a[i]))  

end;

Пояснення:

Початкову суму грошей помножити на А*N