Pascal

Дан равнобедренный треугольник, в котором известны основание и высота, проведенная к ней. Составить программу для вычисления боковой стороны равнобедренного треугольника.

Question

Информатика

Памфилий

14 марта, 08:48

Pascal

Дан равнобедренный треугольник, в котором известны основание и высота, проведенная к ней. Составить программу для вычисления боковой стороны равнобедренного треугольника.

+1

Ответы (1)

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

Лаврентьюшка · Answer 1

Var a, b : integer;

begin

Write ('Основание:') ;

Read (a) ;

Write ('Высота:') ;

Read (b) ;

Write ('Боковая сторона треугольника равна ' + sqrt (a*a + b*b)) ; / / по теор Пифагора

end.