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

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

Question

Володяха

3 апреля, 21:34

+5

Ответы (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