даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых сторон этого треугольника . В ПАСКАЛЕ ABC

Ответы:

var a,b,h,s: real,

begin

write (Введите длину основания: ), read (b),

write (Введите длину высоты: ), read (h),

s:=1/2*b*h,

a:=sqrt(sqr(b)/2),

writeln (Площадь = ,s),

writeln (Боковые стороны равны = ,a),

end.