5. Дана сторона равностороннего треугольника а. Найти площадь этого треугольника S. 6. Известна длина окружности L. Найти площадь круга S, ограниченного этой окружностью.
7. Найти площадь кольца, внутренний радиус которого равен 20, а внешний – заданному числу r (r>20).
8. Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме
умножения, получить a20 за пять операций

PascalABC.NET 3.2 (сборка 1467 от 02.06.2017)

Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

Const
   N = 20;
Var
   A:array[1..N] of byte;
type
  Form1 = class(Form)
    procedure button1_Click(sender: Object; e: EventArgs);
    procedure button2_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    button1: Button;
    button2: Button;
    label1: &Label;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

procedure Form1.button1_Click(sender: Object; e: EventArgs);
Var
   i:byte;
begin
Randomize;
label1.Text:='';
For i:= 1 to N do
    Begin
    A[i]:=PABCSystem.Random(90)+10;
    label1.Text+=A[i]+' ';
    End
end;

procedure Form1.button2_Click(sender: Object; e: EventArgs);
Var
   i:byte;
begin
label1.Text:='';
For i:= 1 to N div 5 do
    A[i*5]:=1;
For i:= 1 to N do
    label1.Text+=A[i]+' ';
end;
end.

1.Я неуверен на 100% в 1 задаче.

Если весь текст состоит из К символов, то приалфавитном подходе размер содержащийся в ней информации I определяется по формуле:
I=K*x,
где х—информационный вес одного символа в используемом алфавите.

РЕШЕНИЕ:
Всего у нас 10 символов: 0,1,2,3,4,5,6,7,8,9.
I=K*x, 10*8=80 бит
80*80=6400 бит
ответ:6400 бит.

2.Пусть в некотором сообщении содержатся сведения о том, что произошло одно из N равновероятных событий. Тогда кол-во информации x, заключенное в этом сообщении, и число событий N связаны формулой:
2^х=N

РЕШЕНИЕ:
2^x=8
2^3=8
ответ: 3 бит.