Дан периметр треугольника и две его стороны определите является ли данный треугольник равносторонним в паскале

Сама только что решала, вроде как поняла немножко) ну вот смотри:

    в 7               в 8

2        < 120 < 2

240*8 бит = 1920 бит

ответ : 1920 бит))

 

Надеюсь что и надеюсь то правильно))

 

Постараюсь немного объяснить, чтобы в следующий раз уже без решила

 

Известно, что с бит можно закодировать 2N различных чисел. Поскольку 2в 7 < 240 < 2 в 8(бит) и для каждого спортсмена число бит одинаково, то для записи каждого из 240 номеров необходимо 8 бит памяти. Поскольку промежуточный финиш велосипедистов, то информационный объем сообщения составит 120*8 бит=1920 бит

// PascalABC.Net 3.0, сборка 1052
const
  nn=100;
var
  i,n:integer;
  a:array[1..nn] of integer;
  p:real;
begin
  Write('Количество элементов в массиве: '); Read(n);
  Writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i],' ')
  end;
  Writeln;
  p:=1;
  Writeln('Нечетные элементы:');
  for i:=1 to n do begin
    if a[i]<0 then p:=p*a[i];
    if a[i] mod 2 <> 0 then Write(a[i],' ')
  end;
  Writeln;
  Writeln('Произведение отрицательных элементов: ',p)
end.

Тестовое решение:
Количество элементов в массиве: 20
Исходный массив
-18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17
Нечетные элементы:
-9 15 7 -3 19 -17
Произведение отрицательных элементов: -91371110400