// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55
Var
number: integer;
k: integer;
begin
repeat
write('number = ');
readln(number);
if number < 0 then k := k + 1;
until number = 0;
writeln('Кол-во отрицательных = ', k);
end.
512*128=65536 пикселей
32 кб = 262144 бит
глубина цвета: 262144/<span>65536</span>=4 бит
2^4=16 цветов
"В шести литрах 6000 миллилитров."
в этой строке 32 символа (с пробелами и точками). Каждый из них кодируется 16ю битами, значит всего будет
16 * 32 = 512 бита
Ответ. Информационный объем сообщения равен 512 бит