<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=ReadInteger('k=');
var a:=ReadArrInteger('>',k);
var sp:=a.Where(x->x>0).Sum;
var po:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var b:=a.Select(x->x>0?po:(x<0?sp:0)).ToArray;
b.Println
end.
<u>Пример</u>
k= 10
> 9 20 -11 5 0 16 8 11 2 -17
187 187 71 187 0 187 187 187 187 71
Дано:
K = 800*600 = 480 000
I = 24 бит (т.к. в RGB на каждую составляющую цветовой модели отводится 8 бит, а составляющих 3: красный цвет, зеленый и синий. Т.е. 3*8 = 24)
Найти:
V - ?
Решение:
V = K*I
V = 480 000 * 24 бит = 11 520 000 бит / 8 = 1 440 000 байт / 1024 = 1 406.25 Кбайт
Ответ: 1406.25 Кбайт
Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
Заходишь в калькулятор, нажимаешь вид -> программист потом ставишь в систему счисления в зависимости от той которая тебе нужна, и пишешь число, нажимашь на другую систему и вуаля