Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
TATARNH7
20.05.2021 07:04 •
Информатика
Кто разбирается в информатике? ? , 8 класс 1.составить блок-схему и программу. в треугольнике авс известны сторон a, b, с. вычислить длину биссектрисы, проведенной из вершин а. l= 2кореньbcp(p-a) b+c при а=2.8; b=3.9; c=4.3
Показать ответ
Ответ:
kantuz
07.08.2020 21:18
//Pascal ABC.NET v3.1 сборка 1172
//Основная задача
Var
a,b,c,r,p:real;
begin
read(a,b,c);
p:=(a+b+c)/2;
r:=(2*sqrt(b*c*p*(p-a)))/(b+c);
writeln(r);
end.
//Из комментариев
Var
n:integer;
begin
readln(n);
writeln('На одного рабочего приходится ',1854/n,' у.е.');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lililobanova20
22.09.2022 06:47
ТЕКСТ ЗАДАНИЯ Посмотрите на рисунок №3 дайте правельнное определение понятию операционная система Операционная система - это язык программирование Операционная систем - это...
ralibaev
06.06.2020 23:46
Построить блок схему A=B+C черта деления 2+D...
vlad1457
03.01.2022 13:03
1.как можно нарисовать пятиугольник? пероопусти повтори [направо 80] 2.выполните и что-то получится пероопусти переменная y переменная z y=5 z=-20 если (y z) [пиши y] иначе...
кристина4тина
03.01.2022 13:03
На студии при двухканальной (стерео) звукозаписи с 32-битным разрешением за 3 часа 12 минут был записан звуковой файл. сжатие данных не производилось. известно, что размер...
Kill111111111111
13.09.2022 08:14
Что такое информация в общепринятом смысле?...
Miss4455
24.05.2022 03:37
Элементы двумерного массива a(7,8) формируются датчиком случайных чисел из интервала [-20,70] . организовать вывод на печать всего массива в виде таблицы,а также элементов...
хочузнать2018
24.05.2022 03:37
Найти ошибку в программе, program nastya; var n: integer; procedure perewod8(n: integer); begin if n 1 then perewod8(n div 8); write (n mod 8); end; begin write ( введите...
magomedov254
03.08.2022 18:34
Файл формата BMP сохранили в формате GIF. Что при этом произошло с его объемом? ПОЧЕМУ ЭТО СЛУЧИЛОСЬ?...
larisa115
09.06.2020 07:39
2 вопроса Приведите примеры, в каких жизненных ситуациях могут пригодиться вычислительные таблицы На что следует обращать внимание при заполнении итоговой строки(столбца)....
TanyaVasutina
13.10.2022 21:40
Рзробіть проект Тривалість рейсу для обчислення тривалості рейсу в годинах і хвилинах для деякого автотранспортного підприємства, якщо відомо, що маршрут складається із трьох...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Основная задача
Var
a,b,c,r,p:real;
begin
read(a,b,c);
p:=(a+b+c)/2;
r:=(2*sqrt(b*c*p*(p-a)))/(b+c);
writeln(r);
end.
//Из комментариев
Var
n:integer;
begin
readln(n);
writeln('На одного рабочего приходится ',1854/n,' у.е.');
end.