function FibN(n: integer): List<Biginteger>;
begin
var (f1, f2) := (BigInteger(1), BigInteger(1));
result := Lst(Seq(f1, f2));
for var i := 3 to n do
begin
(f1, f2) := (f2, f1 + f2);
result.Add(f2)
end;
end;
begin
FibN(ReadInteger()).Println
end.
1.
Четыре числа - a, b, c, d, каждое больше нуля
их среднее арифметическое - (a+b+c+d)/4
2.
Два числа a,b
<span>среднее арифметическое их квадратов = (a^(2)+b^(2))/2
</span><span>среднее арифметическое их модулей = (|a|+|b|)/2</span>
Матричные, струйные и лазерные.
При использовании 256 цветов для хранения 1 пикселя требуется 256=2^i; i=8 бит при использовании 4 цветов 4=2^i; i= 2 битаK-количество пикселей.
V1-объем исходного файла
V2-объем конечного файла
V1=V2+18 Кбайт
18 Кбайт=18*1024*8 бит
V=k*i
8*k=2*k+18*1024*8
6*k=18*1024*8
k=24*1024
V1=24*1024*8 бит>>24*1024 байт>>24 Кбайт