Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
кэт2281
13.03.2020 00:07 •
Информатика
Вычислить на языке паскаля f(x)= sin(x), если x> 0; cos(x), в остальных случаях
Ответ:
arinakurbatovu
03.10.2020 23:48
Внимание, на вход данной программы принимаются радианы, а не градусы.
var x:real;
begin
readln(x);
if(x>0) then writeln(sin(x))
else writeln(cos(x));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
JJJJJJ28
27.01.2020 03:57
( Язык Python) 2. Написати програму виведення на екран усіх спільних дільників двох заданих чисел N та M (M N). Пояснення: при N=10 M=25 спільні дільники 1,5 3. Написати...
AKA1111173
23.02.2022 09:50
К которой команды относится следующая блок-схема?є https://online-shkola.com.ua/upload/photos_statics/1a217c1f535a1b5b4855cf6abb201ed5.jpg А Цикл с постусловием Б Ветвления...
WepaDarkSouls
04.12.2020 20:38
Прокомментируйте действие клавиш CTRL+D...
Severelinka
02.10.2022 08:55
Уменя отправить по почте письмо учителю. тему не нужно нужно написать что-то наподобии того что я выполнил...
Ptigran
24.03.2020 10:50
Приведите примеры алгоритмов, где он может быть использован.Определите результаты вычисления выражений (типы и значения):Chr(Ord( В ))Ord( А класс!...
Саша11111111111уу
20.03.2022 19:43
. Дан фрагмент электронной таблицы:...
Эliна
31.07.2022 01:33
Информатика Кр .. Сделал скорее всего не правильно...
Щощо
09.05.2021 02:21
Площадь прямоугольника треугольника равна 30 см² один из катетов равен 5см найдите второй...
ЛяЛлля
23.09.2020 18:25
1-BILET 1. Complete the sentence. Istanbul is the (big) city of Turkey.2. Speak on the theme “My summer holiday”.2-BILET1. Complete the sentence. I watched TV a lot...
Politik2000
08.09.2020 20:27
МНЕ НУЖЕН ТОЛЬКО ПРАВИЛЬНЫЕ ОТВЕТ! ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x:real;
begin
readln(x);
if(x>0) then writeln(sin(x))
else writeln(cos(x));
end.