Как связаны мощность алфавита и разрядность двоичного кода, достаточного для кодирования всех символов этого алфавита.

Они связаны по формуле N = 2^i где N-мощность алфавита и i-вес символа алфавита

#include <iostream>

#include <cmath>

using namespace std;

double Otr(double Ax, double Bx, double Ay, double By) {

return sqrt((Bx - Ax)*(Bx - Ax) + (By - Ay)*(By - Ay));

}

int main() {

double Ax, Ay, Bx, By, Cx, Cy, Dx, Dy;

cin >> Ax >> Ay >> Bx >> By >> Cx >> Cy >> Dx >> Dy;

cout << "|AB|=" << Otr(Ax, Bx, Ay, By) << endl;

cout << "|AC|=" << Otr(Ax, Cx, Ay, Cy) << endl;

cout << "|AD|=" << Otr(Ax, Dx, Ay, Dy) << endl;

return 0;

}

program xyz;

var

 D: array [1..25] of Integer;

 i, imin, imax, amin, amax, s, p: Integer;

 aver: Double;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (D) to High (D) do begin

   D [i] := Random (101);

   Write (D [i], ' ');

 end;

 imin := Low (D);

 imax := Low (D);

 amin := D [Low (D)];

 amax := D [Low (D)];

 s := 0;

 for i := Low (D) to High (D) do begin

   s := s + D [i];

   if D [i] < amin then begin

     amin := D [i];

     imin := i;

   end;

   if D [i] > amax then begin

     amax := D [i];

     imax := i;

   end;

 end;

 Aver := s / 25;

 p := 1;

 for i := Low (D) to High (D) do begin

   if D [i] > Aver then

     p := p * D [i];

 end;

 WriteLn;

 WriteLn ('Минимальное значение = ', amin);

 WriteLn ('Индекс = ', imin);

 WriteLn ('Максимальное значение = ', amax);

 WriteLn ('Индекс = ', imax);

 WriteLn ('Среднее арифметическое = ', aver :10 :5);

 WriteLn ('Произведение = ', p);

 ReadLn;

end.