Определить суммарный объем в литрах, 12 вложены в друг друга шаров со стенками толщиной в 5 мм. Внутренний диаметр внутреннего шара равен 10см.(Считать что шары впадают в друг друга без зазоров) — Pascal(Паскаль)

var 
  i:integer;
  v,r:real;
begin
  r:=10;
  for i:=1 to 12 do
    r:=r+1;
  r:=r/2;
  v:=(4/3)*r*r*r*3.15;
  v:=v/1000;
  writeln(v);
  readln;
end.

Похожие записи/страницы:

Leave a Comment

− 1 = 4