Заданный радиус основания и высоты цилиндра ю вычислить площадь основания и объем
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.
Оцени ответ
Вход
Регистрация
Задать вопрос
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.