Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
LeviAccem
21.07.2020 13:21 •
Информатика
1. найти значение и номер первого отрицательного члена последовательности cos (сtg n)=1,2,
Показать ответ
Ответ:
Локи301
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 оценок)
Популярные вопросы: Информатика
MegaTanker
05.11.2020 20:17
Информатика с программы кумир построить графики функций: y=-x y=2x+3 y=x*x*x ( именно кумир, а не чертёжник...
panda044
15.03.2020 23:31
Гиперсілтемелер, мазмұн, түсіндірменің қызметтерін көмектесіңіздерші өтініш...
Диана135793
30.10.2022 09:25
Когда состоялся первый турнир в Кс 1.6...
Андрейydarnik
09.02.2023 03:11
Какая команда отправляет документ например в программе MS Word на печать?...
debdh
19.01.2022 19:13
1.Выбери визуальные HTML-редакторы. TOWeb Site Spinner Блокнот Web Development Studio CoffeeCup Visual Site Designer 2.Выбери текстовые редакторы, которые можно...
laskia
17.10.2021 23:39
создайте программу в паскале,чтобы получился рисунок на тему Пасхи,очень нужно паскаль АБС)...
ФрискТок
25.01.2022 09:01
10. Пусть а:=3, b:=5, c:=7. Какие значения будут иметь эти переменные в результате выполнения последовательности операторов c:= a*b+2; b:= b+1; a:=sqr(b)-c; b:=...
faets
15.01.2022 14:49
Выберите все правильные варианты чтения данных с клавиатуры и записи в переменнуюА) int a; cin a;Б) double a; cout a;В) int a; cout a;Г) bool a; cin a endl;Д) float...
Pacan4ikForever
27.10.2022 02:12
Напиши назначение данных компьютерных инструментов...
Petersen
07.01.2021 19:30
Выбери верное название обтекания...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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