Вычисление катета прямоугольного треугольника. (Паскаль)
Вычисление катета прямоугольного треугольника. (Паскаль)
Гость
Ответ(ы) на вопрос:
ГостьProgram h;
Var a,b:real;
Begin
Writeln ('Введите длину гипотенузы');
Readln(a);
Writeln('Введите длину катета');
Readln(b);
a:= sqrt (a*a-b*b);
Writeln(' Длина катета', ' ', b);
End.
Не нашли ответ?
Похожие вопросы