Программа в freepfscal нахождение площади треугольника, половина есть, что дальше? program dana; uses srt var a, b, c, p, s: real begin p: =(a+b+c)/2 s: =sqrt(p*(p-a)*(p-b)*(p-c))
107
349
Ответы на вопрос:
Var a, b, c, p, s: real; begin readln(a); readln(b); readln(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s); end.
Популярно: Информатика
-
Диана1937112.04.2023 21:50
-
TheSiDo14.07.2021 23:48
-
bogerov22815.11.2022 18:28
-
lizayka200117.05.2020 12:47
-
dibalabagdasar02.06.2022 05:45
-
ЛизаПру17.10.2021 14:41
-
miracle112110.10.2022 18:58
-
FraGamer22827.01.2020 04:31
-
Крис260901.12.2020 09:27
-
Мария830101.05.2021 15:46