XXIII X MMIII вот так будет))
program vichislenie_function;
var
x, y: real;
begin
writeln('Введи х');
readln(x);
y := x * x + 2 / (7 * x) - 9;
writeln('y=', y:5:2);
end.
Я уж забывать эту тему стал,
Дано:
I = 1.5 Кб
K = 3072
Найти: N — ?
Решение:
I = I/K
N=2i
I= 1,5Кб = 1,5 • 1024 • 8 = 12 288 бит.
I = 12288/3072 = 4 бита
N = 24 =16 символов
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a[::-1].Println
end.