Напишите программу нахождение площади треугольника по формуле Герона, на Паскале
Program Pr1;uses crt;var a,b,c,p,s:real;beginclrscr;readln(a,b,c);p:=(a+b+c)/2;s:=(p-a)*(p-b)*(p-c);s:=s*p;s:=sqrt(s);writeln(s);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program Pr1;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
readln(a,b,c);
p:=(a+b+c)/2;
s:=(p-a)*(p-b)*(p-c);
s:=s*p;
s:=sqrt(s);
writeln(s);
end.