Ответ:
Program zadacha;
var a, b, c, S, p:real;
Begin
Read (a,b,c);
p:=(a+b+c)/2;
S:=sqrt (p*(p-a)*(p-b)*(p-c));
Writeln('S=',S);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Program zadacha;
var a, b, c, S, p:real;
Begin
Read (a,b,c);
p:=(a+b+c)/2;
S:=sqrt (p*(p-a)*(p-b)*(p-c));
Writeln('S=',S);
end.