Question

напишите пж программу по информатике в pascal

Answer 1

var a,b,c,s,k,y:real;beginreadln(a,b,c);s:=(sqrt(3*power(a,4)))/(3*c)+ 3*b;k:=s+(sqrt(abs(power(a,3)-b-c*2)));y:=k-(s/(b*c))+sqrt(s);write (y:4:4);end.

Answer 2

var a,b,c,s,k,y:real;
begin
readln(a,b,c);
s:=(sqrt(3*power(a,4)))/(3*c)+ 3*b;
k:=s+(sqrt(abs(power(a,3)-b-c*2)));
y:=k-(s/(b*c))+sqrt(s);
write (y:4:4);
end.