Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
lele4
13.02.2020 21:46 •
Информатика
Запишите на языке pascal следующее выражение
Ответ:
vlad1458
20.09.2020 08:27
Присвоим это выражение какой либо величине, например d:
d := SQRT(a+b) / SIN(SQR(c))
0,0
(0 оценок)
Ответ:
ilay23143p0bp8a
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 оценок)
Популярные вопросы: Информатика
deniskalopatin
04.11.2022 21:51
с информатикой Это это контрольная...
доньак
12.04.2023 10:01
1)в чём главное отличие базовых типов языка c++? 2)какие вывода на консоль вы знаете? 3)как используется тернарная операция? 4) пример операции постфиксный декремент....
лиз20031
12.04.2023 10:01
Объем файла равен 256.000 б определите количество символов в файле если 1 б значит 8 б...
Александеррррррр
06.09.2020 05:38
По некоторому каналу связи передается текст в течении 30 секунд. известно, что один символ несет 8 бит. какова скорость передачи данных если текст содержит 50 страниц, на каждой...
Arystan228
06.09.2020 05:38
Что необходимо передать исполнителю для успешного выполнения какой-либо работы или решения ?...
kristimisti1234
07.07.2020 14:23
Впаскале абс заполнить массив 100 целыми случайными числами от -102 до 102 . найти сумму всех элементов, входящих в данный массив, наибольший или наименьший элемент, среднее арифметическое,...
Dara005
07.07.2020 14:23
Скорость передачи данных через adsl-соединение равна 1024000 бит сек . через данное соединение файл размером 2500 кбайт.определите время передачи файла в секундах....
elveranasibull
29.12.2020 08:31
Даны два числа если первое больше второго то вывести их произведение в противном случае вывести их сумму...
09alan
23.05.2020 06:29
Какой ученый, механик и изобретатель оставил после себя чертежи вертолета и подводной лодки? ответ: +1 подробно: +2 с картинкой: +3 интересный: +4 чудесный: +5...
Alpetrova7
23.05.2020 06:29
Решить уравнения: в числителе 6 в знаменателе 4х^2-1 плюс в числителе 3 в знаменателе 2х+1 равно в числителе 2 в знаменателе 2х-1 плюс 1.(подробнее)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.