Ответы на вопрос:
Program project13; {$apptype console} var a,b,c,s,p: real; begin write('a1 = '); readln(a); write('b1 = '); readln(b); write('c1 = '); readln(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('a2 = '); readln(a); write('b2 = '); readln(b); write('c2 = '); readln(c); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s = a); readln end. примечание: программа не проверяет, существуют ли треугольники.
Популярно: Информатика
-
NastyaTeplova02.04.2022 08:23
-
740031620.07.2020 00:40
-
Викуля2017200625.02.2020 14:09
-
красав4ик00726.10.2021 00:04
-
NoxchiKent19.11.2022 04:41
-
rik17226.01.2021 04:50
-
PatiFon4ik29.07.2020 09:34
-
CherryyLou03.06.2020 18:43
-
деляяяяяя05.01.2022 23:01
-
TerminatorYotub27.10.2021 07:04