Нужно сделать блок-схему! определить суммарный объем в литрах 12 вложенных друг в друга шаров со стенками 5 мм. внутренний диаметр внутреннего шара равен 10 см. считать, что шары вкладываются друг в друга без зазоров. program lab3; var r, v: real; i: integer; begin v : = 0; r : = 0.5; for i : = 1 to 12 do begin v : = v + 4 * pi / 3 * sqr(r) * r; r : = r + 0.05 end; writeln('суммарный объем равен ', v: 0: 3, ' л.') end.

valeriya2812    3   10.06.2019 02:30    3