Даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых сторон этого треугольника . В ПАСКАЛЕ ABC
Даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых сторон этого треугольника . В ПАСКАЛЕ 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.
Не нашли ответ?
Похожие вопросы