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

Question

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

Answer 1

Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
end.
Жду спасибо)