А) 32/8=4, тоесть 4 байта
б) 8388608 / 8 = 1048576 байт
8388608 / 1024 = 1024 КБ килобайт
(8388608 / 1024) /1024 = 1 мегабайт
в) <span>1.5 * 1024 = </span>1536 килобайт
1.5 * 1024*1024=1572864 байт
1.5 * 1024*1024*8=12582912 бит
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Решение показано в прилагаемом файле.
Ответ: 77
на скриншоте
====================================
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6