Программа:
const n=10;
var a:array[1..n] of integer;
k,p,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21)-5;
write(a[i]:3);
end;
writeln;
k:=0;
while (k<=n)and(a[k]>=0) do k:=k+1;
if k=n+1 then writeln('В массиве нет отрицательных элементов')
else
begin
p:=1;
for i:=k to n do
if a[i]<0 then p:=p*a[i];
writeln('a[',k,']=',a[k],' p = ',p);
end;
end.
Пример:
3 11 9 11 -1 11 -2 3 3 -5
a[5]=-1 p = -10
На питоне 3й версии достаточно ввести
print (3 ** 100<span>)
</span>Ответ:
<span>515377520732011331036461129765621272702107522001
Для 2й версии Питона:
</span>print 3 ** <span>100
</span>
1. Узнаем сколько байтов в мегабайте:
1Мб=1024*1024=1048576 Байт
2. Найдем 1/64 Мб в Байтах=1048576/64=16384 Байт
3. Получившееся значение умножим на 5
16384*5=81920 Байт
Ответ:81920 Байт
Ответ "В"..........................................
package com.company;
public class Main {
public static void main(String[] args) {
double x = 1.5, y;
y = x * x + Math.sqrt(x) / 15;
System.out.println("Function: " + y);
}
}