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

Question

Информатика

Томуля

18 декабря, 21:39

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

+1

Ответы (1)

Знаете ответ?

Гошуня · Answer 1

Program prtr;

var a, b, c, S: real;

begin

readln (a) ; / / 1 катет

readln (b) ; / / 2 катет

c=sqrt (a*a+b*b) ; / / теорема пифагора

S=0.5*a*b; / / площадь

writeln (c) ;

writeln (S) ;

end.