Дана длина ребра куба а. Найти объем куба V = a^3 и площадь его поверхности S = 6*a^2

Категория: Delphi/Pascal

2011-11-13 18:05:59

code: #pascal

Program Begin5;
Var
a,V,S:Real;
Begin
ReadLn(a);
WriteLn('V = ', a*a*a:6:3);
WriteLn('S = ',6*Sqr(a):6:3);
ReadLn;
End.}

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code