F(16)=1111(2)
1(16)=0001(2)
0(16)=0000(2)
9(16)=1001(2)
B(16)=1011(2)
1111 0001 0000 1001 1011 1011
делить на тройки надо с правого края
111 100 010 000 100 110 111 011
каждую тройку перевести в десятичное число
111(2)=1*2^0+1*2^1+1*2^2=7(8)
100(2)=4(8)
010(2)=2(8)
000(2)=0(8)
100(2)=4(8)
110(2)=6(8)
111(20=7(8)
011(2)=3(8)
Ответ 74204673(8)
Const n=15;
var
a: array[1..n] of integer;
sa: real;
i: byte;
begin
writeln ('Введите ',n,' чисел: ');
sa:=0;
for i:=1 to n do begin;
read (a[i]);
sa:=sa+a[i];
end;
sa:=sa/i;
writeln ('Среднее арифметическое = ',sa);
end.
-------------------------------
Введите 15 чисел:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Среднее арифметическое = 8
70 Мб/с = 71 680 Кб/с<em>( В 1 МегаБайте, 1024 Килобайт)</em>
71 680 / 90 = <u>796,4 сек = 13,3 мин</u>
Var
i, n, s, t: integer;
begin
Read(n);
s:=0;
for i := 1 to n do begin Read(t); s := s + t end;
Writeln(s)
end.
Вот так вот
=sqrt(3*A52-1)