Ответы на вопрос:
Program as; var a,b,c,d,p,s: real; uses crt; clrscr; begin readln(a,b,c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s); readln; end.
Популярно: Информатика
-
Создайте новый пакетный файл, воспользовавшись любым текстовым редактором....
лалвллв28.05.2022 13:58 -
Дано: writeln (s:6:2); Если s = 113,06877, то на экране появится ...
Ferolhr12905.05.2021 00:38 -
Напишите программу для создания списка целых номеров из 8 элементов....
бахтылбек30.12.2021 09:13 -
1) Определите, при каком наименьшем введённом значении переменной s...
LIZA12345678901110.07.2021 07:27 -
Перевести BCF301A из 16 СС , в 4 СС, в 8 СС....
megamozg4014.04.2021 20:33 -
Рассмотрите пример и укажите вид информации. Виды информации Пример...
olegstar74p0a99421.06.2023 19:54 -
Помагите по братски у меня сор...
KarinaBelous29.04.2022 08:20 -
Scale (шкалад )куралын тандау кезинде шенбер куру ушин пайдаланатын...
MariaUralova04.03.2023 22:05 -
Разветвляющаяся структура в dev-c++ кодом ассемблера...
q1w9927.08.2021 17:57 -
Склавиатуры вводятся 18 чисел. найти сумму всех чисел кратных 4.программу...
Whitecat11125.10.2021 00:36