Войти Регистрация Спроси ai-bota

Составьте программу на языке паскаль: вводится величина угла в градусах. найти его sin и cos.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

самая29

29.10.2020 00:18

Вкодировки unicode на каждый символ отводится 16 бит. определите информационный объём выражения из 53 символов в этой кодировке в байтах....

meli12341

18.10.2020 20:10

Однокоренное одушевлённое имя существительное к словам: спорт, здоровье...

kiraflower

30.09.2020 11:51

Вычислить: p=a(a-n) (a-2n)*…*(a-n2)...

Вова21123

17.02.2020 20:32

Охрана труда при работе с компьютером кратко...

Ilyasha311

27.07.2022 10:37

Вывести таблицу умножения на число 19 первых двадцати целых чисел...

VLADBERYYYYYYY

27.07.2022 10:37

сделать проект по информатике умный дом (надо оценка решающая)...

бабушка111111

12.02.2023 09:48

Read the text “advertisement”. although the average citizen is usually annoyed by all the advertisements printed in newspapers and magazines and the commercials broadcast...

chelsi09

17.01.2022 17:12

4в3 степини-(1/8)в ноль степени+кореньиз4...

sasockolowa

12.02.2021 18:47

Определите напряженность поля, создаваемого диполем с электрическим моментом 1 нкл·м, на расстоянии 20 см от центра диполя в направлении, перпендикулярном оси диполя....

GameNooB

05.05.2022 17:20

Решить некоторые из контрольной по за курс 8 класса. 25 . 2 и 3...

Ответ:

kacamber228

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 оценок)

Ответ:

ВладиславПРО123

08.10.2020 13:05

Var a:real;
begin
read(a);
b:=sin(a);
c:=cos(a);
write(b,' ',c);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку