Даны длины ребер a,b,c прямоугольного параллелепипеда. Найти его объем V = abc и площадь поверхности S = 2(ab+bc+ac) — Pascal(Паскаль)

Program Begin6;

Var
  a, b, c, V, S: Real;

Begin
  ReadLn(a, b, c);
  WriteLn('V = ', a * b * c:6:3);
  WriteLn('S = ', 2 * (a * b + b * c + a * c):6:3);
  ReadLn;

End.

Leave a Comment

− 1 = 1