Создать программу вычисления площади треугольника по известным значениям длин его стороны: a,b,c.
Var a,b,c,p,s:real;
begin
write (Введите длину стороны a: );
readln (a);
write (Введите длину стороны b: );
readln (b);
write (Введите длину стороны c: );
readln (c);
p:=(a+b+c)/2;
s:=SQRT(p*((p-a)*(p-b)*(p-c)));
writeln (Площадь = ,s);
end.
Оцени ответ
