20 Мбайт=20*2^23 бит=5*2^25 бит
32 кГц =32*1000 Г =2^8 *125 Г
24=3*8=3*2^3
-----------------------------------------------------------------------------
20*2^23/(4*32*1000*24)=5*2^25/(125*3*2^13)=2^12/(25*3)=
=4096/75≈54, 7cекунд≈ 1 минута
ответ: 1 минута
Дано: 128 = 2^7 цветов
256*1280 - разрешающая способность
решение:
256*1280*7 = 2293760 бит = 286720 байт = 280 Кб
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
Во-первых, экономия памяти.
Во-вторых, надежное хранение копий нужной информации.
На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.