((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b) запись в паскале АВС с округлением...

Question

((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b)
запись в паскале АВС
с округлением получившегося числа до целой
а=1000
b=0.0001

Answer 1

Var a,b,ab,a2,b2:real;
begin
a:=1000;
b:=0.0001;
ab:=a+b;
a2:=a*a;
b2:=b*b;
writeln((ab*ab*ab-a2*a)/(3*a*b2+b2*b+3*a2*b):3:0);
//((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b)
end.

Результат:
1

Или так:
(exp(ln(a+b)*3)-a*a*a)/(3*a*b*b+b*b*b+3*a*a*b)

Comments

f djlyjq cnhjrt cvj;tim&

---

а в одной строчке сможешь?

---

и через экспаненту