Сколько существует натуральных чисел x для которых выполнено неравенство 110 2 х

Объяснение:

В большинстве случаев, когда человек получает информацию, он также её обрабатывает и сохраняет

нюхая цветы получаю информацию в виде запаха, пробуя еду получаю информацию в виде вкуса, слушая лекцию получаю информацию, читая книгу получаю информацию, на мастер классах учусь новому

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

Читая книгу я также и запоминаю прочитанное; слушаю лекцию я также запоминаю услышанное; нюхая цветы я запоминаю их запах; кушая еду я запоминаю её вкус; когда я учу стих, я запоминаю информацию

Рассказывая стих я передаю слушателям информацию; объясняя задачу я передаю информацию слушателям; общаясь с кем то я передаю информацию; уча брата говорить я передаю ему информацию; участвуя в опросе я передаю информацию

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2