16 = 2
8 = 64
1 = 1000
4 = 500
Пользовалась таблицей
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.
Формула нахождения объема закодированного звука
A = D * i * t * с (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Тогда t = A / (D * i * с)
Приводим единицы измерения
D = 64 кГц = 64000 Гц
A = 4026531840 бит
t = A / (D * i * c) = 4026531840 / (64000 * 24 * 2) = 1310.72 секунд = 21.845333333333333 минут
Ответ 20