Ответы на вопрос:
Var s,p: real; i,j: integer; a: array[1..3]of real; begin readln(a[1],a[2],a[3]); for i: =1 to 3 do for j: =1 to 3 do if a[j]> a[i] then begin p: =a[i]; a[i]: =a[j]; a[j]: =p end; if a[1]+a[2]> a[3] then begin p: =(a[1]+a[2]+a[3])/2; s: =sqrt(p*(p-a[1])*(p-a[2])*(p-a[3])); for i: =1 to 3 do write(a[i],' '); writeln; writeln('площадь треугольника: ',s); end else writeln('треугольник не существует'); end.
Популярно: Информатика
-
iiiin06.11.2022 09:54
-
olga18098210.02.2021 08:45
-
сэрго200222.04.2021 23:28
-
liona67619.09.2022 06:02
-
sergeirasnei24.04.2020 09:40
-
AmeliandeAmeliande02.06.2021 11:50
-
elshad200302.08.2021 22:02
-
Диарочка129.06.2020 22:43
-
danilka10721.11.2020 07:58
-
stozhok199823.02.2022 10:04