Цитата:
Сообщение от lazyrazor4
в программированию не шарю
|
Да ладно. Хотя, конечно, не стОило бы. На чем еще учиться, как не на подобных пустяках? Впрочем, если учиться совсем желания нет...
Код:
Var
a,b,c,P,p2,S:Real;
Begin
Write('a= ');
Readln(a);
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
P:=a+b+c;
p2:=P/2;
S:=Sqrt(p2*(p2-a)*(p2-b)*(p2-c));
Writeln('P= ',P:0:3);
Writeln('S= ',S:0:3);
Readln
End.