Введите три числа. Если они могут быть длинами сторон остроугольного треугольника, введите их в порядке возрастания и вычислите площадь полученного треугольника. Составить программу в Паскале, и схему если сможите.
Answers & Comments
SOFIA45
Var a,b,c,S,p:real; begin readln(a,b,c); if (a<b) and (b<c) then writeln(a,b,c); p:=0; p:=a+b+c/2; S:=0; S:=sqrt(p*(p+a)*(p+b)*(p+c)); writeln(S:5:3); end.
Answers & Comments
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.