Дан радиус сферы.найти её объём и площадь поверхности.
Дан радиус сферы.Найти ее объём и площадь поверхности
Код:
program fuck;
uses wincrt;
const
pi=3.141592654;
var
r:real;
s:real;
v:real;
begin
clrscr;
writeln('Input r');
readln(r);
s:=4*pi*r*r;
v:=(4/3)*pi*r*r*r;
writeln('s=',s);
writeln('v=',v);
readkey;
end.
uses wincrt;
const
pi=3.141592654;
var
r:real;
s:real;
v:real;
begin
clrscr;
writeln('Input r');
readln(r);
s:=4*pi*r*r;
v:=(4/3)*pi*r*r*r;
writeln('s=',s);
writeln('v=',v);
readkey;
end.