1.
I=i*k*m
где i - объём одной точки, k, m - размер картинки
32*8*1024=256*256*i
(вычисления лучше проводить, представив все значения в степенях двойки)
i=4
N=2^i
N - количество цветов в картинке
2^4=16,
N = 16
2.
I= i*t*q*c
c - количество дорожек (здесь моно - 1)
q - частота дискретизации
i - глубина кодирования
t - время
I= 16 бит * 60 с * 16 000 Гц * 1 = 15 360 000 бит = 1,8 Мб (примерно)
все значения нужно брать в минимальных, то есть Гц, биты и секунды, а не байты, килогерцы и минуты.
Const NN=50;
Var
a:array [1..NN,1..NN] of integer;
maxi,maxj,mini,minj,i,j,n,m:integer;
begin
writeln('Введите кол-во строк и столбцов массива: ');
readln(n,m);
for i:= 1 to n do
for j:= 1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln; writeln('Получившийся массив: ');
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:= 1 to n do
for j:= 1 to m do
begin
if a[i,j]>a[maxi,maxj] then
begin
maxi:=i;
maxj:=j;
end
else if a[i,j]<a[mini,minj] then
begin
mini:=i;
minj:=j;
end;
end;
writeln; writeln('Получившийся массив: ');
i:=a[maxi,maxj];
a[maxi,maxj]:=a[mini,minj];
a[mini,minj]:=i;
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
end.
С=З
Н=Н
Е=А
Г=К
Знак-символьное представление информации
Uses crt;
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
<span>end.</span>
пусть на корабле икс кошек, тогда четырнадцать минус икс и умноженное на два равно количеству ног людей (не считая капитана), а икс умноженное на четыре равно количеству лап у кошек. сумма лап и ног равна сорока(капитан одноног), отсюда находим, что икс равен шести.