Ответы на вопрос:
Var a,b,c,p,s,r1: real; begin write('введите стороны треугольника: '); read(a,b,c); p: =a+b+c; s: =sqrt(p2*(p2-a)*(p2-b)*(p2-c)); r1: =s/p; writeln('r1=',r1)end.
Популярно: Информатика
-
marktopskiy3456724.11.2020 07:39
-
glushkovaov21.10.2020 05:07
-
alihanova126.12.2020 13:11
-
vitalik630015.04.2021 16:19
-
Marketing2313.08.2020 16:55
-
Alinыch1116.07.2020 04:22
-
Dinka210324.10.2022 17:44
-
asfandiyrova20111.09.2020 06:34
-
Настя45645618.02.2020 01:07
-
masha1990210.05.2020 20:13