Разработайте проект нахождение длины гипотенузы и площади прямоугольного треугольника по известным катетам;

нужен листинг программы для Delphi

Question

Поликарпий

2 января, 12:28

+3

Ответы (1)

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

Никитич · Answer 1

Var

a, b: real;

begin

readln (a, b) ;

Writeln ('c = ', Sqrt (a * a + b * b)) ;

Writeln ('S = ', a * b * 0.5) ;

end.

Разработайте проект нахождение длины гипотенузы и площади прямоугольного треугольника по известным катетам;нужен листинг программы для Delphi