Отвечаем на вопросы Что такое Интернет?
Что такое плагиат?
В чем заключается функция браузера? Какие браузеры ты знаешь?
Какие виды авторского права ты знаешь? Какие опасности существуют в Интернете?

Интернет – это глобальная сеть, которая объединяет огромное количество компьютеров по всему земному шару и дает возможность получения доступа к информационным ресурсам. Ниже перечислены возможности Интернет в современном мире.

Плагиат - Выдача чужого произведения за своё или незаконное опубликование чужого произведения под своим именем, литературное воровство.

1. Интернет – это глобальная сеть, которая объединяет огромное количество компьютеров по всему земному шару и дает возможность получения доступа к информационным ресурсам. Ниже перечислены возможности Интернет в современном мире.

2. ПЛАГИАТ - умышленное присвоение авторства на чужое произведение науки, литературы или искусства в целом или в частности. По законодательству РФ влечет уголовную ответственность. ПЛАГИАТ признается независимо от того,опубликовано чужое произведение или нет. Принуждение к соавторству прес ледуется как ПЛАГИАТ. Потерпевший от ПЛАГИАТА автор может прибегнуть к гражданско-правовым мерам защиты нарушенного права авторства, в т.ч.требовать возмещения убытков. При доказанности ПЛАГИАТА в работе, на ко торую заключен издательский договор, издательство вправе его расторгнутьи взыскать выплаченный гонорар. Заимствование темы или сюжета произведе ния либо научных идей, составляющих его содержание, без заимствования формы их выражения, не считается ПЛАГИАТОМ.

Если ошибки, извиняюсь)

                                     PascalABC.NET                                       function ToBinary (x:integer):string; beginif (x>0) then ToBinary := ToBinary(x div 2) + (x mod 2).ToString;end; function FromBinary (x:string):integer; beginif (x.Length>0) then FromBinary := FromBinary(x.Substring(1)) + x[1].ToDigit*Round(Power(2,x.Length-1));end; function func (x:integer):integer; beginvar s := ToBinary(x); loop 2 do s += s.AsEnumerable.Sum(c->c.ToDigit) mod 2; func:=FromBinary(s);end; begin Println('f(N):',func(ReadInteger('N:'))); Println('Количество:',(1..160).Count(x->func(x) in 90..160)); end.

Примечание:

Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).

ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).

Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).

Пример работы: