Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
saban15
25.12.2020 19:33 •
Информатика
Найти площадь треугольника по трем сторонам
Показать ответ
Ответ:
Artur1Khasanov
02.07.2020 11:27
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
boikov2o
01.02.2022 05:18
Выбери команды, которые робот не умеет выполнять : вверх, вправо, наверх, вниз, сделать, закрасить...
Gayal1961
17.12.2022 14:52
У Васи на компьютере оказался вирус, который размножает слова. Он повторяет напечатанное слово столько раз, сколько в этом слове символов! Чтобы удалить вирус, полезно...
sasa26597
05.06.2023 16:50
ПИТОН . У Тимофея есть уравнение. Число (из правой части уравнения) вводится с клавиатуры. Потом Тимофей что-то долго пишет на черновичке и получает ответ (чему равен...
НемфодораТ
14.10.2021 14:38
решить задание 9 , 10 , 11 в Matlab . Вариант №9...
мαрия
29.05.2021 14:35
PASCAL Вводится последовательность целых чисел (`2` или больше числа), меньших `1000` по модулю, `1001` конец последовательности. Определить максимальную сумму квадратов...
Repulse1
03.01.2022 04:21
тема: «Линейные алгоритмы». Написать программу для вычисления Y в программе Pascal...
sasha3637
25.12.2022 12:20
Какие пары регистров используются для основной адресации (Ассемблер) ?...
ольга1698
29.11.2022 23:09
пажожа вот прям пажжа...
Kornella
27.10.2022 20:11
это информатика 5 класс босова вроде...
nagor1904
21.06.2020 21:46
Написать код в цикле C клавиатуры последовательно вводятся данные о количестве товара и его единичной массе. Ввод автоматически прекращается, как только будет введено...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.