• Предмет: Информатика
  • Автор: Аноним
  • Вопрос задан 10 лет назад

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

Ответы

Ответ дал: gainull97
0

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.

Похожие вопросы