<span>Пользователь работал с каталогом C:\Документы\Договоры\Продажа
</span>Сначала он поднялся на один уровень вверх -> C:\Документы\Договоры
Затем спустился в каталог Срочные -> C:\Документы\Договоры\Срочные
Затем спустился в каталог Покупка -> C:\Документы\Договоры\Срочные\Покупка
Ответ: 2
Рекомендуется использовать формулу Мальтуса, изменения числа рыб N= k*N-q*N*N
Если за начальное количество рыб принять N0,то через год рыб в пруду будет
N1=N0+K*N0-q*N0*N0,через два года N2=N1+K*N1-q*N1*N1 ...
В таблице Excel в ячейку A1 введите значение к=1,в ячейку B1 значение q=0,01,в ячейку С1 значение N0=100, в ячейку В2 формулу =C1+A1*C1-B1*C1*C1 (это количество рыб за 1 год) , в ячейку В3 формулу
=B2+$A$1*B2-$B$1*B2*B2(количество рыб за 2 год) , скопируйте формулу с ячейки В3 до ячейки В11.
<span>Изменяйте значение ячейки А1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.</span>
Var a:array of Integer; n,i,max,ind:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
ind:=0;
for i:=0 to Length(a) do
if abs(a[i])>abs(max) then
begin
max:=a[i];
ind:=i;
end;
n:=a[0];
a[0]:=max;
a[ind]:=n;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>
////////////Pascak abc//////////////
Программа во вложении
Разница лишь в том, что CD (Compact Disk) - это старый стандарт, а DVD (Digital Video Disk) - это новый. Также DVD имеет больше места, чем CD, потому что изначально (как видно в названии) разрабатывался для хранения цифрового видео. Также не все приводы поддерживают DVD технических отличий от CD. Сходство во внешности: они оба выглядят как зеркальный диск.
