varr,h,s,v:integer;beginreadln(r,h);s:=round(Pi*sqr(r));v:=s*h;writeln('S=',s);write('V=',v);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
r,h,s,v:integer;
begin
readln(r,h);
s:=round(Pi*sqr(r));
v:=s*h;
writeln('S=',s);
write('V=',v);
end.