1,5 Кб = 1536 бит
3072/1536 = 2 бита на символ
2^2 = 4
Ответ: 4
===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
N = int(input('N = '))
k1=0
k2=0
k3=0
for i in range(N):
a = int(input())
if a==0:
k1=k1+1
elif a>0:
k2=k2+1
else:
k3=k3+1
print(k1)
print(k2)
print(k3)
Пример:
<span>N = 5
28
0
0
0
0
4
1
0</span>
1 бочка = 3 галлона
2 бочка = 5 галлонов
Набираем во 2 бочку [0:5]
Переливаем из 2 в 1 бочку [3:2]
Выливаем из 1 бочки [0:2]
Переливаем из 2 в 1 бочку [2:0]
Набираем во 2 бочку [2:5]
Переливаем из 2 в 1 бочку [3:4]
Выливаем из 1 бочки [0:4]
Теперь у нас во второй бочку 4 галлона
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.
</span>