Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ksktys
19.02.2021 20:51 •
Информатика
1. найти значение и номер первого отрицательного члена последовательности cos (сtg n)=1,2,
Показать ответ
Ответ:
Данилкамастре
09.07.2020 23:14
Var
x: real;
begin
x := 1;
while (cos(1 / tan(x)) >= 0) do x := x + 1;
Write(x, ': ', cos(1 / tan(x)))
end.
Результат выполнения программы:
6: -0.956871790478342
Если нужна промежуточная печать:
var
x: real;
begin
x := 1;
while (cos(1 / tan(x)) >= 0) do begin
Writeln(x, ': ', cos(1 / tan(x)));
x := x + 1
end;
Writeln(x, ': ', cos(1 / tan(x)))
end.
Результат выполнения программы:
1: 0.800844301895226
2: 0.897089962539917
3: 0.743794228654611
4: 0.64963571596558
5: 0.956565479264333
6: -0.956871790478342
0,0
(0 оценок)
Популярные вопросы: Информатика
dashakostyk
07.07.2020 06:28
ответьте на вопросы: 1)как вы понимаете что такое список...
OGordienko1
31.03.2020 04:50
Напишите программу на python, которая получает два натуральных числа и находит их произведение, не используя операцию умножения. ( через input)...
89229131414
22.03.2023 10:05
Скросоть передачи данных по сети равна 2 мбит в секунду передача файлов заняла 4 сек. определите размер файла в килобайтах...
alena645
27.09.2021 01:21
Гена попросил у девушки номер ее мобильного телефона. девушка решила подшутить над геной и прислала ему такую последовательность цифр (1110010001) - 10010001-111000-1100010. гене...
арма6
27.09.2021 01:21
Решить по информатике пример (11011101+1111001): 110×1101-11001111=?...
sparksfiyfdgghffgg
18.10.2020 06:58
Александр набирает текст для реферата на компьютере. в его реферате 10 страниц по 40 строк, а в строке 60 символов. какую часть флешки размером 8 гб займет александр своим рефератом?...
sofapravdina
21.08.2020 15:31
Windows - название одного из семейств наиболее распространённых операционных систем . узнайте как переводится это слово на язык . какие ассоциации у вас возникли?...
малика230
12.05.2023 05:30
с таблицей по информатике,...
мамаеб228
04.04.2023 10:15
Сколько целых чисел расположено между числами -√60 и √20...
xeniakudriavtseva
04.04.2023 10:15
Можно ли объяснить стремление современных людей сохранить памятники культуры только любовью к отечеству?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x: real;
begin
x := 1;
while (cos(1 / tan(x)) >= 0) do x := x + 1;
Write(x, ': ', cos(1 / tan(x)))
end.
Результат выполнения программы:
6: -0.956871790478342
Если нужна промежуточная печать:
var
x: real;
begin
x := 1;
while (cos(1 / tan(x)) >= 0) do begin
Writeln(x, ': ', cos(1 / tan(x)));
x := x + 1
end;
Writeln(x, ': ', cos(1 / tan(x)))
end.
Результат выполнения программы:
1: 0.800844301895226
2: 0.897089962539917
3: 0.743794228654611
4: 0.64963571596558
5: 0.956565479264333
6: -0.956871790478342