Написать программу на языке Паскаль
Дано: а,b,с
Найти:S
S=SQRT(p(p-a)(p-b)(p-c))
где р=(а+b+c)/2
Дано: а,b,с
Найти:S
S=SQRT(p(p-a)(p-b)(p-c))
где р=(а+b+c)/2
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var a,b,c,s:integer;function f(a1,b1,c1:real):real;
var p:real;
begin
p:=(a+b+c)/2;
f:=sqrt(p*(p-a)*(p-b)*(b-c)); end;
BEGIN
readln(a,b,c);
writeln('S=',f(a,b,c):4:2);
end.