Программа в freepfscal нахождение площади треугольника, половина есть, что дальше? program dana; uses SRT var a, b, c, P, S: real begin p:=(a+b+c)/2 S:=sqrt(p*(p-a)*(p-b)*(p-c)) помогите пожалуйста
Программа в freepfscal нахождение площади треугольника, половина есть, что дальше?
program dana;
uses SRT
var a, b, c, P, S: real
begin
p:=(a+b+c)/2
S:=sqrt(p*(p-a)*(p-b)*(p-c))
помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, c, P, S: real;
begin
readln(a);
readln(b);
readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.
Не нашли ответ?
Похожие вопросы