I=ki
i=I/k
i=200/50=4 бита
N=2^i
N=2⁴=16 символов - мощность алфавита
var
y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=sqr(5)+3*x-4;
writeln('y = ',y);
end.
Кажется, это называется раскадровка.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(5,ReadInteger('b='),5)
.ForEach(x->Writeln(x:3,7*x**3+2/3*x+Sqrt(x)-4:25:13))
end.
<u>Пример</u>
b= 24
5 876.5694013108330
10 7005.8289443268400
15 23634.8729833462000
20 56013.8054692883000