Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
котикkatya
28.09.2022 02:49 •
Информатика
Найти площадь треугольника по трём сторонам в делфи7 нужно составить программу
Показать ответ
Ответ:
sasha790075sasp07uw4
09.09.2020 18:58
Var a,b,c,s,p : real;
begin
Writeln('A=');
Readln(a);
Writeln('B=');
Readln(b);
Writeln('C=');
Readln(c);
p:=(a+b+c)/2;
s:=sqrt(abs(p*(p-a)*(p-b)*(p-c))); // формула Герона
Writeln('S=',s:3:2);
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olga2610
18.09.2020 04:15
Переведите одну единицу измерения в другие 1 байт = бит 128 бит =байт 1 Кбайт= бит1,5 Кбайт= ___байт2048 байт = ___ Кбайт2 Мбайт =Кбайт81920 бит = Кбайт 1,5 Мбайт = байт...
igor1337d
02.03.2022 09:23
Ужени было 111011 в двоичной яблок. он отдал 11100 в двоичной яблок василию и сам съел 110 в двоичной яблок . сколько осталось яблок у жени? подробное решение...
лоро12
02.03.2022 09:23
Паскаль 1. одномерный массив а длиной n =20 заполнить случайными числами из диапазона [–15..80]. составить программу определения: первого минимального элемента массива;...
айс1705
02.03.2022 09:23
Сколько бит памяти займёт слово controller...
Zemoten
02.03.2022 09:23
Выполните арифметические действия: 1)346 в восьмеричной-64 в восьмеричной 2)1022 в шестнадцатеричной-5a в шестнадцатеричной 3)24ecl в шестнадцатеричной* 22 в шестнадцатеричной...
vitalikpchel
07.04.2022 10:32
Текст занимает 0,5 кбайт памяти компьютера. скоько символ содержит этот текст...
kirill880
07.04.2022 10:32
Перевести 5и оценку в её наименование ....
2Alinochka2
18.10.2021 20:19
написать код на ассемблере вас написать код на ассемблере вас) >...
jenja117
15.08.2020 02:09
Решите контрольную работу 2 варианта....
84737263748
15.08.2020 02:09
Сделать Лабораторную работу 14 там для полного задания нужно использовать лабу (задание (не ответ)), решение (код html) кинуть файлом Word перепишу сам....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Writeln('A=');
Readln(a);
Writeln('B=');
Readln(b);
Writeln('C=');
Readln(c);
p:=(a+b+c)/2;
s:=sqrt(abs(p*(p-a)*(p-b)*(p-c))); // формула Герона
Writeln('S=',s:3:2);
Readln;
end.