begin
var y := ReadReal;
var z := y ** 10;
var x := z * (1 + z + Sqr(z));
x.Println;
end.
Пример1.543
453619.091174671
2)procedure Per(a, b: real; var p: real);
begin
p := a * b
end;
begin
var (x, y) := ReadReal2;
var Периметр: real;
Per(x, y, Периметр);
Периметр.Println;
var (n, m) := ReadReal2;
Per(n, m, Периметр);
Периметр.Println;
var (c, d) := ReadReal2;
Per(c, d, Периметр);
Периметр.Println
end.
Пример6 13
78
3.5 8.032
28.112
14 23.002
322.028
5 быт- это 32 варианта номера (где ед. объёма информации бит там надо подставлять это число в степень двойки например: 3 бита-2=8 (кол.выриантов) 5 бит-2= 32 8 бит - 2=256)
ответ:32 шарика.