const nn=50; var a:array [1..nn,1..nn] of integer; i,j,k,l,n:integer; begin writeln('N= '); readln(n); for i:=1 to n do for j:= 1 to n do readln(a[i,j]); writeln; writeln('Сформированный массив:'); for i:=1 to n do begin for j:= 1 to n do write(a[i,j],' '); writeln; end; writeln; writeln('Индексы равных элементов:'); for i:=1 to n do for j:= 1 to n do for k:=i+1 to n do for l:= j to n do if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']'); end.
1)
Пользуемся вот этой формулой: I = hit, где
I объем файла,
h - частота дискретизации, h=40кГц = 40 000 Гц
i - минимальное количество бит, i=16
t - длительность звучания файла в секундах, t=3мин = 180с
I = 115200000 бит = 115200000/8 байт = 14400000 байт = 1440000/1024 кБайт = 14062,5 кБайт
2)
Пользуемся теперь этими формулами
I = ki
, где
I - объем изображения,
k - количество пикселей, k = 100*300=30000
i - минимальное количество бит, нужное для кодирования одного пикселя
N - палитра цветов, N = 16384
В какую степень надо возвести 2, чтобы получилось 16384?
Значит, по формуле i = 14
I = 30000*14=420000 бит = 420000/8 байт = 52500 байт = 52500/1024 Кбайт = 51,27 Кбайт
1.
const nn=50;
var
a:array [1..nn,1..nn] of integer;
i,j,k,l,n:integer;
begin
writeln('N= ');
readln(n);
for i:=1 to n do
for j:= 1 to n do
readln(a[i,j]);
writeln;
writeln('Сформированный массив:');
for i:=1 to n do
begin
for j:= 1 to n do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Индексы равных элементов:');
for i:=1 to n do
for j:= 1 to n do
for k:=i+1 to n do
for l:= j to n do
if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']');
end.
2. Недостаточно данных для решения задачи.