Это не совсем школьной программы, но я о . нужно с pascalabc.net вычислить: дано действительное число x. используя только арифметические операции умножения, сложения и вычитания, вычислить 1 - 2x + 3x^2 - 4x^3 и 1 + 2x + 3x^2 + 4x^3. разрешается использовать не более восьми операций.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var x:=ReadReal('x=');
Writeln(1+x*(-2+x*(3-4*x)),', ',1+x*(2+x*(3+4*x)))
end.
Результат выполнения программы:
x= 3.58
-151.241648, 230.140048