Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
MuxaBirko
19.01.2021 08:31 •
Информатика
Запишите на языке pascal следующее выражение
Ответ:
vasiapasi17
20.09.2020 08:27
Присвоим это выражение какой либо величине, например d:
d := SQRT(a+b) / SIN(SQR(c))
0,0
(0 оценок)
Ответ:
igrik25
20.09.2020 08:27
Если требуется для градусов:
var
a, b, c: integer;
f: real;
begin
readln(a, b, c);
f := sqrt(a + b) / sin(sqr(c)*3.14/180);
writeln(f);
end.
Если требуется для радианов:
var
a, b, c: integer;
f: real;
begin
readln(a, b, c);
f := sqrt(a + b) / sin(sqr(c));
writeln(f);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alex30050
21.08.2022 07:48
Продолжите: школа-обучение= а)доктор б)ученик в)больной г)лечение бежать-стоять= а)ползать б)молчать в)плакать г)шуметь выберите нужное понятие к !...
kosonogova
21.08.2022 07:48
Вопрос 1что представляет собой visual basic? система программирования среда проектирования объединяет в себе систему программирования и среду проектированиявопрос 2каким образом...
SaharaYo
02.01.2021 02:06
заполните массив случайными числами в интервале [0; 100] и подсчитайте отдельно среднее значение всех элементов,которые меньше 50, и среднее значение всех элементов,которые больше...
perizatttt
05.06.2022 01:03
Определите отношения между понятиями и изобразите эти отношения с кругов : береза, липа, дерево, сирень...
olgaborodec82
05.08.2022 08:04
упростите логическую функцию...
LavaGirl14
05.08.2020 08:58
Сұрақтарға жауап берейік 1. Робот деген не?2. Роботтардың қандай түрлерін білесің?3. Өнеркәсіптік роботтар не үшін қажет?4. Тұрмыстық роботтарға қандай техникаларды жатқызуғаболады?...
Анастасия5451
18.07.2022 02:58
Решите неравенство 1) 4(x-3)+5x3x Найти наименьшее целое решение неравенства 6(x-5)-10≥5(x-6)....
qsn50857
21.12.2022 08:59
По теме конституционного строя в Российской Федерации...
знания436
17.10.2020 11:06
Fe (III) + Cl2 → K + O2 → Перетвори наведені напів-схеми реакцій на хімічні рівняння. Допиши продукти реакцій. До іть...
bubles13
11.01.2023 09:16
как понять последнюю строфу стихотворения ? как вы думаете почему господь должен богословить тех воинов которые видят в поверженных врагах своих братьев? обоснуйте свой ответ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
d := SQRT(a+b) / SIN(SQR(c))
var
a, b, c: integer;
f: real;
begin
readln(a, b, c);
f := sqrt(a + b) / sin(sqr(c)*3.14/180);
writeln(f);
end.
Если требуется для радианов:
var
a, b, c: integer;
f: real;
begin
readln(a, b, c);
f := sqrt(a + b) / sin(sqr(c));
writeln(f);
end.