Ответ(ы) на вопрос:
ГостьProgram n1;
var r: real;
begin
write('радиус шара (см): ');
readln(r);
writeln('площадь боковой поверхности: ',4*pi*r*r,' (кв. см)');
writeln('обьем шара: ',1/3*pi*r*r*r,' куб. см)');
end.
Не нашли ответ?
Похожие вопросы