Расписать подробно ЧТО и КАК решается, что из чего выходит, я написал код, он не совпадает со сверкой. Язык паскаль.
Answers & Comments
vladmor
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) var a, b, c, s, k, y: real;
begin writeln('Введите числа a,b,c'); readln(a, b, c); s := (sqrt(2 * a + 3 * b * b * b)) / (a - c); k := 2 * sqr(s) * sqr(s) - 3 * sqrt(abs(a * b * c)); y := 6 * s + 2 * k - sqr(s) * sqr(s) / (3 * a * b); writeln('y = ', y:8:3); end.
Тестовое решение: Введите числа a,b,c 97 -4 3 y = -204.614
1 votes Thanks 1
papus5
Program q; var a,b,c,s,k,y:real; begin readln(a,b,c); s:=sqrt((2*a)+(3*sqr(b)*b))/(a-c); k:=(2*sqr(s)*sqr(s))-(3*sqrt(abs(a*b*c))); y:=(6*s)+(2*k)-(sqr(s)*sqr(s))/(3*a*b*c); writeln(y); end.
Answers & Comments
var
a, b, c, s, k, y: real;
begin
writeln('Введите числа a,b,c');
readln(a, b, c);
s := (sqrt(2 * a + 3 * b * b * b)) / (a - c);
k := 2 * sqr(s) * sqr(s) - 3 * sqrt(abs(a * b * c));
y := 6 * s + 2 * k - sqr(s) * sqr(s) / (3 * a * b);
writeln('y = ', y:8:3);
end.
Тестовое решение:
Введите числа a,b,c
97 -4 3
y = -204.614
var a,b,c,s,k,y:real;
begin
readln(a,b,c);
s:=sqrt((2*a)+(3*sqr(b)*b))/(a-c);
k:=(2*sqr(s)*sqr(s))-(3*sqrt(abs(a*b*c)));
y:=(6*s)+(2*k)-(sqr(s)*sqr(s))/(3*a*b*c);
writeln(y);
end.