Var
step: array[1..8] of real;
i, x: integer;
begin
readln(x);
step[1] := 1 - x;
step[2] := step[1] * step[1];
step[3] := step[2] * step[1];
step[4] := 3 * x;
step[5] := step[4] * x;
step[6] := 1 - step[5];
step[7] := step[6] * x;
step[8] := step[3] + step[7];
for i := 1 to 8 do
write(step[i], ' ');
end.
1- 10тичная
2-16тиричная
3-двоичная
В кодировке вин-1251 один символ весит 8 бит или 1 байт
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 1536 шт
Вес текста I = 1536 * 8 бит = 12288.0 бит =
= 1536.0 байт = 1.5 Кбайт = 0.00146484375 Mбайт
===== PascalABC.NET =====
begin
var a := ArrRandom(30, 0,1000);
a.Println;
a.Count(p -> p.InRange(10, 99) and (p mod 10 > p div 10)).Println
end.
1тб=1024гб*1024мб*1024кб*1024б*8бит
Получится 8796093022208 бит
