Даны действительные числа x, y. Не пользуясь никакими другими операциями, кроме умножения, сложения и вычитания, вычислить 3x2y2 — 2xy2 — 7x2y — 4y2 + 15xy + 2×2 — 3x + 10y + 6. Разрешается использовать не более восьми умножений и восьми сложений и вычитаний — Pascal(Паскаль)

var x,y,a,b,c,s:real;
begin
clrscr;
writeln('Введите 2 действительных числа:');
readln(x,y);
c:=x*y;
s:=c*(3*c-2*y-7*x+15)+y*(10-4*y)+x*(2*x-3)+6;
writeln(s);
end.

Leave a Comment

− 5 = 1