Ответы на вопрос:
program ndj;
uses crt;
var a,b,c,p,s: real;
begin
clrscr;
p: =(a+b+c)/2; \\ высчитывает полупериметр
s: =sqrt(p*(p-a)*(p-b)*(p-c)); \\ высчитывает площадь
writeln(s);
readln;
end.
Популярно: Информатика
-
Glebforst17.10.2022 20:53
-
dva4evskaja201p08ub401.04.2023 21:16
-
Vasya1godik14.02.2020 09:54
-
alekseyblohinov29.03.2021 03:10
-
srySyutoduofyi19.02.2021 17:31
-
dzubanuksofia14.02.2023 00:10
-
kovmihser22810.08.2021 16:26
-
6262024332319.03.2020 13:33
-
Molyaneya05.03.2021 01:29
-
abeloglazova89108.06.2023 02:56