Составить программу на языке паскаля, которая находит боковую сторону в равнобедренном треугольнике, если известна площадь-S и основание-b

Question

Информатика

Евстахий

1 сентября, 10:12

Составить программу на языке паскаля, которая находит боковую сторону в равнобедренном треугольнике, если известна площадь-S и основание-b

+1

Ответы (1)

Знаете ответ?

Лира · Answer 1

Var a, b, h, s:real;

begin

write ('S = ') ;

readln (s) ;

write ('b = ') ;

readln (b) ;

h:=2*s/b;

a:=sqrt (h*h + (b/2) * (b/2)) ;

write ('a = ', a:4:2) ;

end.

Пример:

S = 12

b = 6

a = 5.00