составить программу нахождения площади и периметра равнобедр. треугольника,если известны...

Question

составить программу нахождения площади и периметра равнобедр. треугольника,если известны все его стороны. S=1/2 a*h P=a2+b

Answer 1

var s, h:real;

a, b, p:integer;

begin

readln(a, b);

writeln('Периметр ровняется = ', 2*a+b);

h:=sqrt(sqr(a)-sqr(0.5*b));

writeln('S = ', 0.5*a*h:2:2);

readln

end.