var a,b,c:real;
Begin
read(a,b,c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
End.
Прога на Паскале
Var a,b,c:real;
Read(a,b,c);
Write('Объем=',a*b*c,' ','Площадь поверхности=',2*(a*b+a*c+b*c),
' ','Сумма ребер=', 4*(a+b+c) );
END.
var a,b,c:real;
Begin
read(a,b,c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
End.
Прога на Паскале
Var a,b,c:real;
Begin
Read(a,b,c);
Write('Объем=',a*b*c,' ','Площадь поверхности=',2*(a*b+a*c+b*c),
' ','Сумма ребер=', 4*(a+b+c) );
END.