Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
manzer95
29.03.2021 00:28 •
Информатика
Составьте программу на языке паскаль: вводится величина угла в градусах. найти его sin и cos.
Ответ:
MrNeik1
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 оценок)
Ответ:
katerinarakova
08.10.2020 13:05
Var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Myziki
26.05.2022 06:11
Придумать и вычислить по три примера на сложение, вычитание, умножение и деление в 2-ой, 8-ой и 16-ой системе счисления...
кпрооо
17.02.2021 14:58
Рассчитайте объем видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 1024 х 768 и количеством отображаемых цветов, равным...
Саша20041509
24.09.2020 13:43
По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 пример выходных данных: |ab|=10.0 пользуясь формулой: аб= корень из ((х1-х2)^2+(y2-y1)^2)...
Spudi14
24.09.2020 13:43
1)в текстовым файле записана строка текста,состоящая из 1024 символов. для хранения каждого символа в памяти выделяется восемь ячеек. сколько ячеек занимает весь файл? 2)некоторое...
Nikbooc
06.01.2021 11:23
Квыберите и запишите номера ответа (ответов) : а) число пи на языке pascal. б) самый последний символ в тексте программы. в) операция вычисления остатка от целочисленного деления....
linka737
12.02.2022 21:15
Сто значит фразеодогизм за тридевять земель...
MrLech
12.02.2022 21:15
Ученик нашел но 33 198 и получилось 66 непроверяемые следи учитель определил что это была допущена ошибка как он это сделал...
svetlana1980ang
12.02.2022 21:15
Почему термины экосистема и биогеоценоз могут употребляться как синонимы?...
bondnm35
12.02.2022 21:15
Некто оставил в наследство 48000 тыся жене,дочери и 3 сыновьям,завещал жене 1\8 от суммы,а каждый из 2 сыновей в 2 раза больше,чем дочери.сколько осталось каждому из наследников?...
синийлис1
12.02.2022 21:15
Почему на восточных склонах большого водораздельного хребты выпадает много осадков?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.