Информатика, опубликовано 2018-08-22 22:35:46 by Гость
Вычислить площади поверхностей и объемы трех воздушных шаров с известными радиусами , использовав процедуру для вычисления площади и объема. Радиусы шаров соответственно равны 5,10,15 м .
Ответ оставил Гость
Procedure s_v(r:real; var s,v:real);
begin
s:=4*Pi*r*r;
v:=4/3*Pi*r*r*r;
end;
var a,b:real;
begin
s_v(5,a,b);
writeln(r=5, S=,a:5:2, V=,b:5:2);
s_v(10,a,b);
writeln(r=10, S=,a:5:2, V=,b:5:2);
s_v(15,a,b);
writeln(r=15, S=,a:5:2, V=,b:5:2);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на