Ответы на вопрос:
Program n1; var a,b,c,s,p: real; begin readln(a); readln(b); readln(c); if (a+b> c) and (a+c> b) and (b+c> a) then begin p: =a+b+c; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('периметр=',p); writeln('площадь=',s); end else writeln('треугольник не существует'); end.
Популярно: Информатика
-
мансур4525.07.2021 11:25
-
vladkrikoff111.06.2023 04:18
-
mobilion201610.07.2020 19:09
-
05багира12.05.2021 02:10
-
VarLen2000508.01.2021 11:11
-
lublubkoba10.01.2022 12:57
-
Kmaj16.01.2020 06:56
-
Ксееее29.03.2022 17:28
-
andreybalashov14.06.2022 17:19
-
Anna56789405.04.2023 22:53