Половина пруда на 9 день. т.к каждый день *2
9день это половина полного пруда.
2 в 9 степени это 512 листьев
если степени ещё не проходили , просто по умножай на 2
2 4 8.... 128 256 512
LINE (0,100)-(25,10),0
LINE (25,10)-(50,100),0
LINE (50,100)-(0,100),0
Чтобы закрасить, ищещь середину PAINT (25,45), 11 (цвет заливки), 0 (цвет границы (линий))
Javascript:var x=0.3,y;while(x<=1.7){y=x*x+1;document.write("x="+x+"; y="+y+"<br />");x+=0.2;}
Вариант с заполнением с клавиатуры.
----------------------------------------------------------
var
A: array [1..10] of real;
i: byte;
mult: real;
begin
mult := 1;
for i := 1 to 10 do
begin
write('Введите A[',i ,'] = ');
readln(A[i]);
end;
writeln('Сгенерированный массив.');
for i := 1 to 10 do
begin
write(A[i]:1:2);
write(' ');
if (A[i] > 0.00) and (A[i] < 1.00) then
mult := mult * A[i];
end;
writeln;
if mult <> 1 then
writeln('Произведение = ', mult:2:4)
else
writeln('Элементы в диапазоне от 0 до 1 отсутствуют.');
end.
----------------------------------------------------------
Вариант с случайным заполнением.
----------------------------------------------------------
var
A: array [1..10] of real;
i: byte;
mult: real;
begin
mult := 1;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 10 do
begin
A[i] := random*10;
write(A[i]:1:2);
write(' ');
if (A[i] > 0.00) and (A[i] < 1.00) then
mult := mult * A[i];
end;
writeln;
if mult <> 1 then
writeln('Произведение = ', mult:2:4)
else
writeln('Элементы в диапазоне от 0 до 1 отсутствуют.');
end.
Исходный файл - 15 Мбайт
Его перезаписали в формате стерео 2 канала, значит 15 Мбайт увеличивается в 2 раза = 30 Мбайт.
Потом его оцифровали с разрешением в 3 раза выше исходного, значит увеличиваем еще в 3 раза 30×3=90 Мбайт
Частота дискретизации была меньше в 2 раза, чем у исходного, значит делим на 2. 90÷2=45 <span>Мбайт
Сжатия не проводилось, поэтому ответ: </span><span>45 </span>Мбайт
Можно всё записать в один пример:
Двойки сокращаются, остаётся 15*3 = 45 Мбайт