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

Question

Информатика

Дашуха

24 декабря, 00:56

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

+4

Ответы (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.