<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
Print(0.5 * Sqrt(2 * b * b * +2 * c * c - a * a))
end.
<h2>Пример</h2><h3>Введите a, b, c: 4.5 5.2 3.12</h3><h3>16.0672236556289</h3>
1. Загрузочные вирусы.
2. Файловые вирусы.
<span>3. файлово-загрузочные вирусы. </span>
<span>4. Сетевые вирусы. </span>
<span>5. Документные вирусы.</span>
78=>16
214=>326
89=>131
111=>157
7 * 1024*8 бит обьем рисунка
7 * 1024*8/64/128 = 7 бит на цвет
2^7 = 128 цветов