Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Kiraпомошник
21.04.2023 01:36 •
Информатика
Составьте программу на языке паскаль: вводится величина угла в градусах. найти его sin и cos.
Ответ:
ксения282006
08.10.2020 13:05
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=DegToRad(ReadReal);
Writeln('Cинус равен ',Sin(a):0:13,', косинус равен ',Cos(a):0:13)
end.
Пример
38.4
Cинус равен 0.6211477802783, косинус равен 0.7836934573258
0,0
(0 оценок)
Ответ:
Оксана1970
08.10.2020 13:05
Var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
GGNOOB777
18.05.2021 09:07
Сколько байт в памяти занимает массив а, если на целое число отводится 2 байта? var a: array[1..6] of integer надо, хэлп...
VladBugorkov
10.10.2021 09:50
Ученик использовал переменые для создания игры. что тут нужно сделать...
Angelochek167
12.03.2023 02:33
Информ. сообщение объёмом 450 битов состоит из 150 символов. какой вес каждого символа?...
wwwwwww6
05.10.2022 12:08
-30 до 30. Подсчитайте в этом массиве количество положительных и количество отрицательных чисел....
evtpasha2017
08.04.2023 22:21
Написать программу для решения задачи: Произвольно вводится одномерный массив из 15 целых чисел, все числа больше -10 и меньше 10. Вывести массив на экран. Найти наименьшее...
senan53
01.11.2020 15:42
Алгоритм внизу 5. В слове «ПАРУС» замени буквы по приведенному алгоритму. Полученное слово обозначает: 1) файл, хранящий информацию о системе; обработки информации; 3) скорость...
lotosalla1
12.09.2020 12:59
Расшифруй по координатам таблицы фразу: (1;1) (2;3) (2;5) (3;2) (2;1) (1;3). Какая пословица выражает смысл этой фразы?...
karamanilya
09.07.2021 21:33
.(Подбери к данным словам однокоренные слова разных частей речи. выдели корень все глаголы запиши в форме 2-го лица ед. числа и 3-го лица мн. числа. обозначь орфограмму-безударную...
turysbekaida
09.07.2021 21:33
.(Составить систему уравнений: дирижабль, участвуя в воздушном параде ,пролетел по ветру 360 км. путешествие заняло 4ч. обратный путь проходил против ветра и занял 9 ч. какова...
Жориккот123
09.07.2021 21:33
.(Ржет дорога в жуткое пространство. мне нравится степей твоих медь. луна как жёлтый медведь. ты меня звал стоном придавленной черни. словно яблоко тяжёлое. виснет с шеи твоя...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=DegToRad(ReadReal);
Writeln('Cинус равен ',Sin(a):0:13,', косинус равен ',Cos(a):0:13)
end.
Пример
38.4
Cинус равен 0.6211477802783, косинус равен 0.7836934573258
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.