Var
A,Sp,So:real;
i:integer;
Begin
Sp:=0;
So:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A<0 then So:=So+A
else Sp:=Sp+A;
End;
WriteLn('Сумма отрицательных: ',So);
WriteLn('Сумма положительных: ',Sp);
End.
Все проще чем кажется, нужно количество точек умножить на количество цветов и все а количество точек это перемножение разрешения
1024*768*64=50331648 бит= 6291456 байт=6144 кбайт= 6 мбайт
Ответ:
На Python:
x = 1
y = x ** 2 + 2 * x + 5
print(y)
Объяснение:
Ты бы хоть попробовал сам, ничего же сложного.