Ответы на вопрос:
Var a, b, c, d: real; procedure plo(s: string; x, y, z: real); var sq: real; begin if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then begin sq : = 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - ; writeln('площадь треугольника со сторонами ', s, ' = ', sq: 0: 3); end else writeln('треугольник со сторонами ', s, ' не существует'); end; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); plo('a,b,c', a, b, c); plo('a,b,d', a, b, d); plo('a,c,d', a, c, d); plo('b,c,d', b, c, d); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
alenaav0818.12.2021 20:37
-
malkinzene25.03.2021 07:38
-
КириллГромов200024.07.2022 05:18
-
Marina583945859327.07.2022 13:38
-
PRI3E31.01.2020 08:24
-
282837107.01.2023 07:46
-
алгебра17120.09.2021 12:30
-
katrinzeta1812.09.2022 22:20
-
artumko0425.03.2021 23:50
-
olga19588803.11.2020 15:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.