Вычислить площади поверхностей и объемы трех воздушных шаров с известными радиусами , использовав процедуру для вычисления площади и объема. радиусы шаров соответственно равны 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.
mmurzina
25.07.2021
Using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks;
namespace Prijki_dlin { class Program { static void Main(string[] args) { // созд и заполн масс double nach = 4.05, kon = 6.9; double[] c = new double[11]; Random r = new Random(); for (int i = 1; i < 11;i++ ) { c[i] = nach + r.NextDouble() * (kon - nach); Console.WriteLine(Math.Round(c[i],2)); } // ввод ограничения длины double l = Convert.ToDouble(Console.ReadLine()); for (int i = 1; i < 11; i++) { if (c[i] >= l) { Console.WriteLine(c[i]); } } Console.ReadKey(); } }}
Алексеевна
25.07.2021
1 множество будет называться : "Ученики 7 "А" класса школы 10 Санкт-Петербурга". В него будет входить ученик этого класса Вася Петров, ученица Полина Панова и другие ученики в классе 7 "А" в школе #10 Санкт-Петербурга. 2 множество будет называться : "Учителя школы #5 Москвы". В него будут входит все учителя, включая учительницу школы #5 в Москве- Ольга Николаевну, Марину Васильевну и других... 3 множество будет называться : "Отличники 9 "Б" класса школы #21 Твери". В него будут входить все отличники 9 "Б" класса школы #21 города Твери. Вася Пакин, Ульяна Иванова и др.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Вычислить площади поверхностей и объемы трех воздушных шаров с известными радиусами , использовав процедуру для вычисления площади и объема. радиусы шаров соответственно равны 5, 10, 15 м .
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.