Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
polykanasch201
17.09.2022 18:54 •
Информатика
Треугольник задан длинами сторон.найти углы треугольника в паскале
Показать ответ
Ответ:
uliana2007zvez
03.10.2020 22:57
var
a,b,c: real;
ugol_alpha,ugol_betta,ugol_gamma: real;
begin
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
if a*a+b*b-c*c=0 then writeln('Данные не корректны!') else begin
ugol_aplha :=arccos(-((sqr(a)-sqr(b)-sqr(c))/2*b*c));
ugol_betta:=arccos(-((sqr(b)-sqr(a)-sqr(c))/2*a*c));
ugol_gamma:=arccos(-((sqr(c)-sqr(a)-sqr(b))/2*a*b));
write('альфа=',ugol_alpha,' бетта=',ugol_betta:0:2,' гамма=',ugol_gamma:0:2);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Марьяша16
17.12.2020 16:52
Сколько гигабайт информации содержит сообщение объемом 2 в степени 34 бит...
sanzharzhumakhp0a0p5
11.12.2022 06:18
What is clash quantum source of spider man ?...
ДаняКашин
05.08.2020 12:06
Даны натуральное число n действительные числа a1 an. вычислить sin |a1++an |...
alekseyovsyann
17.11.2022 19:58
Python ввести целочисленный массив, состоящий из 14 элементов. вычислить колличество и сумму четных по значению положительных элементов....
мидина5
31.03.2021 08:37
Запиши развёрнутую запись числа 0,324 для дробной части числа....
Sonyvega1
06.11.2020 03:41
ИНФОРМАТИКА.пишите развернуто...
ЧеловекАнанас
26.01.2023 08:44
1 . В одному рядку тексту розміщується в середньому 58 символів, а на одній сторінці 46 рядків. Скільки закодованих сторінок цього тексту можна взяти, щоб довжина двійкового коду...
Druwba
11.12.2021 23:35
тест по английскому! I have just read the article about Dominican Republic. * Нужно выбрать что поставить the -- a в пропущеную строну...
alioo
04.05.2020 11:20
1. Составьте уравнения реакции по цепочке (укажите условия, назовите соединения): С→СН4→СН3Cl→CH3OH→CH3-O-CH3 2. Напишите формулу соединения, образующегося при взаимодействии 1 молекулы...
Гелакси27
11.12.2021 23:35
Как узнать давление по температуре погоды...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c: real;
ugol_alpha,ugol_betta,ugol_gamma: real;
begin
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
if a*a+b*b-c*c=0 then writeln('Данные не корректны!') else begin
ugol_aplha :=arccos(-((sqr(a)-sqr(b)-sqr(c))/2*b*c));
ugol_betta:=arccos(-((sqr(b)-sqr(a)-sqr(c))/2*a*c));
ugol_gamma:=arccos(-((sqr(c)-sqr(a)-sqr(b))/2*a*b));
write('альфа=',ugol_alpha,' бетта=',ugol_betta:0:2,' гамма=',ugol_gamma:0:2);
end;
end.