Написать линейную программу нахождения площади треугольника - вопрос №84698713 от спроситьнадо 12.04.2020 14:28

Question

Информатика: Написать линейную программу нахождения площади треугольника по 3 его

спроситьнадо · Answer

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=ReadReal3('Введите стороны треугольника:');
var p:=(a+b+c)/2;
Writeln('S=',Sqrt(p*(p-a)*(p-b)*(p-c)):0:3)
end.

Пример
Введите стороны треугольника: 13 8 11.3
S=44.843