program Help;
uses Crt, Math;
var
cathet, hyp, P : real;
height, S : real;
begin
writeln ('Enter triangle Cathets: ');
readln(cathet);
clrscr;
P := 2*cathet + sqrt(2*Power(cathet, 2));
S := (Power(cathet, 2))/2;
height := (2*cathet)/sqrt(2*(cathet*cathet));
writeln('triangle perimeter: ',P , ' Area: ', S, ' Height:', height);
end.
Объяснение:
