DeSex
Var a,b,c,s,k,y: real; begin write('Введите a b c:'); readln(a,b,c); s:=sqrt(2*a+3*power(b,3))/(a-c); k:=2*power(s,4)-3*sqrt(abs(a*b*c)); y:=6*s+2*k-power(s,4)/3/a/b/c; writeln('y=',y); end.
var v,r:real; begin writeln('Введи R'); readln(r); v:=4/3*pi*power(r,3); writeln('V=',v); end.
var a,b,c,s:real; begin writeln('a b'); readln(a,b); c:=sqrt(a*a+b*b); s:=a*b/2; writeln('c=',c); writeln('S=',s); end.
Answers & Comments
begin
write('Введите a b c:');
readln(a,b,c);
s:=sqrt(2*a+3*power(b,3))/(a-c);
k:=2*power(s,4)-3*sqrt(abs(a*b*c));
y:=6*s+2*k-power(s,4)/3/a/b/c;
writeln('y=',y);
end.
var v,r:real;
begin
writeln('Введи R');
readln(r);
v:=4/3*pi*power(r,3);
writeln('V=',v);
end.
var a,b,c,s:real;
begin
writeln('a b');
readln(a,b);
c:=sqrt(a*a+b*b);
s:=a*b/2;
writeln('c=',c);
writeln('S=',s);
end.