Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
arminqamalyan85
24.01.2023 02:25 •
Информатика
Даны три стороны одного и три стороны другого треугольника. определить будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади. в системе паскаль
Показать ответ
Ответ:
НикитаТим
21.09.2020 22:46
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lyudsiya1337
25.06.2021 03:37
Даны три числа. найти среднее арифметическое из наибольшего и наименьшего из этих чисел. pascal...
giunel041
23.11.2021 17:43
Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые...
abcdefgh
18.03.2020 06:24
Определите объем памяти, необходимый для записи 10 секунд видеофильма в режиме hdtv без сжатия, если известно, что в этом режиме обновление изображение происходит с частотой...
Caflen
23.01.2022 01:11
Дан одномерный массив. Запиши верный ответ. −16 31 0 −3 3 11 Значение элемента массива — −16. Индекс элемента массива — ....
Гиперборея
18.07.2021 05:58
Лабораторная работа №2.моделирование . компьютерный магазин.описание компьютерных аксессуаров продает товары, указанные в прайс-листе. стоимость указана в долларах. если стоимость...
mihailgrand
10.02.2020 03:18
Записать в римской системе счисления: 80042,320617,9178,заранее !...
Фариза04
22.04.2022 14:56
По 2 примера тождество, пересечение, подчинение. например: тождество: столица россии-москва, первый космонавт-юрий гагарин. например: пересечение: электронные письма на языке,...
ILLNNXSI
12.04.2021 23:00
При каких значениях переменной алгебраическая дробь 15-5x/x квадрат-16 имеет смысл? ...
Ник569078
03.01.2022 02:43
Установите соответствие между названиями этапов 3D - моделирования и их описаниями Количество соединений: 5моделированиесоздание трехмерных объектовпроцесс создания 2D-изображения...
nvvasilap09s3i
03.01.2022 02:43
Бүлақ басындағы аңгіме...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.