Sub Main
dim n as integer
dim k as integer
dim p as integer
dim min as integer
dim s as string
n=inputbox("Сколько будет чисел?")
dim a(n)
for i=1 to n
<span> a(i)=inputbox(i & " число")
</span><span> s=s & a(i) & "; "
</span>next i
min=a(1)
k=1
for i=2 to n
<span> if a(i)<min then
</span><span> min=a(i)
</span><span> k=i
</span><span> end if
</span>next i
p=a(k+1)
for i=k+2 to n
<span> p=p*a(i)
</span>next i
s=s & "p=" & p
msgbox(s)
<span>End Sub</span>
Почему же нет операции?
я знаю как минимум 2 способа
1) через формулу <span>exp(ln(X) * </span>Y<span>)
2) функция pow(X, Y);
но если у вас тема про циклы, видимо вам надо вручную посчитать степень. тогда опишу вам внутренности функции pow
res:=x;
for i:=2 to y do
<span>res:=res*x;
Вот полностью программа
Var res,x,i,y: integer;
Begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
res:=x;
for i:=2 to y do
res:=res*x;
writeln(res);
<span>readln();
end.</span></span>
</span>
V = k * i ( где V - объем файла, k - количество пикселей, i - глубина цвета)
2 в степени i = N ( глубина кодирования (количество бит, занимаемых 1 пикселем), N - количество цветов (палитра)) ==>
2 в степени i = 16
i = 4
v = 2048 * 1024 * 4 = 8 388 608 бит = 1 048 576 байт = 1024 КБ = 1 МБ
2) a: array[5..19] of integer т.к. сюда входят все числа от 5 до 19, включая границы