Получатся числа 16 15 5 4 3 1
Сумма=44
var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.
Раз 4 одинаковых грани, то log2(4) = 2 бита.
Ответ: BАЖГЕБД так как в начале идёт протокол, далее двоеточие и двойной слэш ,потом имя сервера, слэш и наконец имя файла.
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.