Задача №12
Найти периметр и -площадь прямоугольного треугольника, если даны длины его катетов -a и -b.
Program begin_12-
Uses crt-
Var — a,b: integer-
c,p,s:real
Begin
Clrscr-
Writeln(‘введите а и b’)- readln(a,b)-
c:=sqrt(sqr(a)+sqr(b))-
p:=a+b+c-
s:=1/2*a*b-
writeln(‘s=’,s:4:2,’p=’,p:4:2)-
Readln-
end.
|