Pascal

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

Question

Информатика

Синклитикия

8 октября, 03:20

Pascal

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

+4

Ответы (1)

Знаете ответ на вопрос?

Келестина · Answer 1

Var a, b : integer;

begin

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

Read (a) ;

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

Read (b) ;

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

end.