Даны катеты прямоугольного треугольника.Найдите гепотенузу и площадь
Даны катеты прямоугольного треугольника.Найдите гепотенузу и площадь
Гость
Ответ(ы) на вопрос:
ГостьПаскаль uses crt;
var a,b,c,s:real;
begin
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c=',c);
s:=(a*b)/2;
writeln('s=',s);
end.
Гостьk1 - один катет
k2 - другой катет
g - гипотенуза
S - площадь треугольника
Язык програмирования: Паскаль.
var
k1, k2, g, S : real;
begin
readln (k1);
readln (k2);
g := SQRT(SQR(k1) + SQR(k2));
writeln(g);
S := (k1 * k2) / 2 ;
writeln(S)
end.
Не нашли ответ?
Похожие вопросы