Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Хряшка
01.04.2023 01:54 •
Информатика
Даны три стороны одного и три стороны другого треугольника. определить будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади. в системе паскаль
Показать ответ
Ответ:
nurkenalmazbek
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 оценок)
Популярные вопросы: Информатика
zakharskaoye07y
22.03.2023 23:28
Втаблице dat хранятся цены в рублях за 10 видов товаров(dat[1] - оценка за первый вид товара, dat[2] - за второй и т. определите что будет напечатано в результате выполнения...
vanyaburundukov
06.08.2021 01:43
Заполните ячейки трассировочной таблицы, используя данные из блок-схемы.Ниже скриншот задания (таблица и схема задания);(программа Python)...
faets
10.05.2020 13:37
Номер 99 скорость передачи данных по некоторому каналу равна 64 000 бит/с. передача файла по этому каналу связи заняла 4 мин. определите размер файла в мегабайтах...
орион12
10.05.2020 13:37
Какие предложения являются высказываниями ? 1) рукописи не горят 2)обязательно стать отличником 3)никакая причина не извиняет невежливость 4)1011= 1*2+0*2+1*2+1*2...
vektar1234
15.05.2021 00:14
А) Придумайте ситуацию, когда обращение в банк за деньгами является необходимым и неизбежным, и ситуацию, когда можно обойтись без получения кредита Б) Представьте, что...
ndknmm
21.12.2021 21:22
Выберите правильный вариант отрицательного предложения: Bob helped his daddy in the * garden last summer. * Bob didn t help his daddy in the garden last summer. Bob helps...
customsto
26.04.2023 05:22
Укажите особенности поместного владения Земельное владение являлось личной собственностью Земельное владение давалось только за службу князю Земельное владение передавалось...
arishkakorneva
23.07.2020 00:57
До смертних в енеїді належить...
tanysha29
26.04.2023 05:22
Теплоход на подводных крыльях отошёл от пристани В 8:00 со скоростью 45 км ч какое в время он подойдёт к другой пристани расстояние до которой 135 км...
wkolo3avr211
25.11.2020 01:41
Давайте побеседуем над произведением «Кукла»– Как Акимыч воспринимает то, что происходит в его родном селе? – Что вы можете рассказать об Акимыче?- Какой след в жизни...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.