Даны катеты прямоугольного треугольника.Найдите гепотенузу и площадь

2

Ответы и объяснения

  • Sky09
  • профессор
2013-06-23T19:40:48+00:00

Паскаль

 

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.

  • 4MD
  • отличник
2013-06-23T20:11:24+00:00

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.