Площадь треугольника по 3-м его сторонам:
Var a,b,c, P: integer;
PP, S: real;
Begin
readln(a);
readln(b);
readln(c);
PP := ( a + b + c ) / 2;
S := sqrt(PP*(PP-a)*(PP-b)*(PP-c));
writeln('ответ(округлен до тысячных): ' + S:0:3);
end.
Площадь треугольника по 3-м его сторонам:
Var a,b,c, P: integer;
PP, S: real;
Begin
readln(a);
readln(b);
readln(c);
PP := ( a + b + c ) / 2;
S := sqrt(PP*(PP-a)*(PP-b)*(PP-c));
writeln('ответ(округлен до тысячных): ' + S:0:3);
end.