Меню сайта

Задача №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.

Категория: Линейные программы | Дата: 03.12.12

Меню раздела
Блок