Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

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

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

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 05.09.2018, 20:56   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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

Код:
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, 21:01   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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