Помогите пожалуйста решить по паскалиABC Гипотенуза прямоугольного треугольника равна с,...

Question

Помогите пожалуйста решить по паскалиABC Гипотенуза прямоугольного треугольника равна с, а один из катетов а. Найти площадь этого треугольника

Answer 1

Var a,b,c,S:real;
begin
writeln('введите гипотенузу треугольника ');
readln(a);
writeln(введите катет треугольника ')
readln(b);
c:=sqrt(sqr(a)-sqr(b));
S:=(c*b)/2;
writeln('площадь треугольника S=',S);
end.