62=2^6
Значит,любое загаданное число можно отгадать за 6 раз.
Для того что бы разместить информацию на дискейте (1,44) объемом (2048) понадобиться;
2048/1,44=1422
<u>алг </u>
<u>нач</u>
вещ <em>x</em>, <em>y</em>
ввод <em>x </em>
<em>y</em> := (1 - <em>x</em> ** 2 + 5 * <em>x</em> ** 4) ** 2
вывод <em>y</em>
<u>кон</u>
11 строка не стоит точка с запятой
<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.