250,140625 килобайт
если нужно решение то вот:
i=64
K=128*256
I=?
Прости пожалуйста , но ты хотя бы фоткай полностью
Рекомендуется использовать формулу Мальтуса, изменения числа рыб 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>
<span>Если максимально кратко, то основные функции табличных процессоров следующие: создание, редактирование, оформление и печать электронных таблиц; построение и видоизменение диаграмм, создание многотабличных документов (в т. ч. объединённых формулами) ; решение экономических задач графическими методами и путём подбора параметров (в зависимости от характера вышеуказанной задачи) ; создание итоговых и сводных таблиц; решение оптимизационных задач; разработка макрокоманд и т. д</span>
Var
A:array[1..10] of integer;
i,n,m:integer;
Begin
m:=1001;
WriteLn('Введите массив');
For i:= 1 to 10 do
Begin
Read(A[i]);
if (A[i]<m)and(A[i] mod 2 = 0) then
Begin
m:=A[i];
n:=i
End;
End;
WriteLn('A[',n,'] = ',m);
End.
