Pascal ABC: Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь
Pascal ABC: Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы