Написать программу ** Паскале.Заданы длины двух катетов в прямоугольном...

Question

Написать программу на Паскале.Заданы длины двух катетов в прямоугольном треугольнике.Найти длину гипотенузы,площадь треугольника.

Answer 1

Program w;
var a,b,c,s:real;
begin 
 writeln('Введите a,b');
 readln(a,b);
 c:=sqrt(sqr(a)+sqr(b));
 s:=(a*b)/2; 
 writeln('Гипотенуза:'); 
 writeln(c:4:2);
 writeln('Площадь:');
 writeln(s:4:2);
end.