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

Question

Информатика

Юлианка

25 июня, 06:39

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.