Свойство такое, что а), в), г) - арифметические прогрессии, б) - геометрическая.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
256 это два в 8ой степени, значит на каждый пиксель у нас приходится 8бит(1 байт). Пикселей у нас 786432 (1024*768). Для нахождения объема перемножаем эти числа. 1 (байт) * 786432 (пикселя) = 786432 байта.
(Для перевода из байт в килобайты, и из килобайт в мегабайты мы должны поделить число на 1024)
786432 байта = 768 КилоБайт = 0.75 МегаБайт.