Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 05.09.2018, 21:02   #1
lager_akcent
Новичок
 
Регистрация: 04.09.2018
Сообщений: 1
Репутация: 10
Восклицание последовательность

узнать количество отрицательных чисел в последовательности ctg(10^n)
n:=(0;1...;2018)
lager_akcent вне форума   Ответить с цитированием
Старый 05.09.2018, 21:25   #2
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 16,969
Репутация: 3316

icq: 512-765
skype: alexp.frl
По умолчанию

Тут не решатель задач.

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Alex11223 на форуме   Ответить с цитированием
Старый 05.09.2018, 21:56   #3
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,321
Репутация: 5258
По умолчанию

а если "в лоб" ?

Код:

program ideone;
function ctg(x: extended):extended;
begin
  ctg := cos(x)/sin(x);
end;
var i, count : integer;
  x : extended;
begin
 count := 0;
 x := 1;
 for i:=0 to 2018 do begin
    if ctg(x)<0 then Inc(count);
    x := x * 10;
 end;  
 WriteLn(count)
end.

https://ideone.com/WblNLR
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 05.09.2018, 22:01   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,937
Репутация: 6285
По умолчанию

Если 10^n градусы, то там 2 угла в первом квадранте (n=0,1), один во втором (n=2) и остальные в четвертом. Вот и считай сколько раз котангенс отрицательный. Даже без цикла. Если же радианы, то спасайся кто может ))
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность целых чисел a1, a2, …an. Образовать новую последовательность, выбросив из исходной, те члены, которые равн Мария74 C++ Builder 2 04.12.2013 23:09
Дана непустая последовательность вещественных чисел, оканчивающаяся числом 1000. Последовательность является неубывающей. fanatloko Паскаль 1 23.06.2013 14:25
последовательность Ия Ильина Помощь студентам 1 17.01.2012 19:27
Последовательность CrazyRabbit Помощь студентам 14 08.02.2009 18:22


00:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru