Напишите программу вычисления площади и гипотенузы прямоугольного треугольника ,если...

Question

Напишите программу вычисления площади и гипотенузы прямоугольного треугольника ,если известны его катеты. Но программа должна быть с комментариями посторочно

Answer 1

Var {раздел описания переменных}
a, b: Real; {описание переменных. Переменные а и b вещественного типа}

begin {раздел или блок непосредственно кода программы}
WriteLn('введите катеты'); {запрос ввода сторон треугольника}
ReadLn(a,b); {ввод сторон треугольника пользователем}
Writeln('Площадь треугольника =',a*b/2); {вывод результата нахождения площади треугольника. Площадь равна половине произведения катетов}
WriteLn('Гипотенуза=', sqrt(sqr(a) + sqr(b))); {вывод результата нахождения гипотенузы. Квадрат гипотенузы равен сумме квадратов катетов, соответственно гипотенуза равна корню квадратному из суммы квадратов катетов. sqr - возведение в квадрат, sqrt - корень из числа.}
end. {Конец кода программы}