Begin12. Даны катеты прямоугольного треугольника $$a$$ и $$b$$. Найти его гипотенузу $$c$$ и периметр $$P$$:
$$c=\sqrt{a^2 + b^2}$$, $$P=a+b+c$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program Begin12; var a,b,c,P: Real; begin Write('Введите длинну катета а: '); Readln(a); Write('Введите длину катета b: '); Readln(b); c:=Sqrt(Sqr(a)+sqr(b)); Writeln('Гипотинуза прямоугольного треугольника равна: ',c); P:=a+b+c; Writeln('Гипотинуза прямоугольного треугольника равна: ',P); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: