Question

Срочно, пожалуйста!!! Составить программу, которая вычисляет площадь прямоугольного треугольника. Пользователь вводит с клавиатуры 1 катет и гипотенузу. При выводе результата должно быть обеспечено 2 знака после запятой.

Answer 1

begin

 var a, c: real;

 repeat

   a := ReadlnReal('введите катет, a =');

   c := ReadlnReal('введите гипотенузу, c =');

   if a >= c then Println('гипотенуза должна быть больше катета')

 until c > a;

 var S := 0.5 * a * Sqrt(c * c - a * a);

 Write('Площадь прямоугольного треугольника: S = ', S:0:2)

end.

Answer 2

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (a, c) := ReadReal2('Введите через пробел катет и гипотенузу:');

 if a > c then Swap(a, c);

 Writeln('Площадь треугольника равна ',

     0.5 * a * Sqrt(Abs(c * c - a * a)):0:2)

end.