// 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// 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.