Program n1; var r: real; begin writeln('введите ребро куба'); readln(r); writeln('S грани =',sqr(r)); writeln('S полной поверхности =',sqr(r)*6); writeln('V куба =',r*r*r); end.
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u> <u>// Внимание! Если программа не работает, обновите версию!</u>
begin var a:=ReadReal('a='); var b:=ReadReal('b='); var c:=ReadReal('c='); var p:=(a+b+c)/2; var s:=Sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('s=',s:0:1) end.