Program PrTreug;
var a,b,c,s:real;
begin
readln(a,c);
//a и b-катеты, c-гипотенуза
b:=sqrt(sqr(a)-sqr(b));
writeln('Второй катет ->',b);
s:=(b*a)/2;
writeln('Площадь прямоугольного треугольника ->',s);
end.
Программа прикреплена в PascalABC.
Поделитесь своими знаниями, ответьте на вопрос:
40 ! даны гипотенуза и катет прямоугольного треугольника. напишите программу для нахождения второго катета и площади треугольникаинформатика 8 класс)^^ заранее кансанмида()
var a,b,c:real;
begin
readln(a,b);{a-gip b-kat}
c:=sqrt(sqr(a)-sqr(b)); {формула с^2=a^2-b^2}
writeln(c:0:0,'второй катет');
writeln(a*b/2:0:0,'площадь');
end.