Question

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

Помогите пожалуйста,никак не пойму эту программу.

Answer 1

program by_Relhem;
var a,b,c,S:real;
begin
writeln ('Введите гипотенузу и катет, разделяя их пробелом');
read (a,b);
if a>b then
c:=sqrt(sqr(a)-sqr(b));
if b>a then
c:=sqrt(sqr(b)-sqr(a));
S:=0.5*(a*b);
writeln ('Катет: ',c, ' Площадь: ',S);
end.