Скільки разів виконається цикл, якщо початкове значення Х=11? Whіle Х <= 10 do X := X+1

Является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Предоставил фундаментальные понятия, идеи и их математические формулировки, которые в настоящее время формируют основу для современных коммуникационных технологий. Его статьи «Математическая теория связи» и «Теория связи в секретных системах» считаются основополагающими для теории информации и криптографии. Клод Шеннон был одним из первых, кто подошел к криптографии с научной точки зрения, он первым сформулировал ее теоретические основы и ввел в рассмотрение многие основные понятия. Шеннон внес огромный вклад в теорию вероятностных схем; теорию игр; теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика».

В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье «Математическая теория связи»). Кроме того, понятие энтропии было важной особенностью теории Шеннона. Он продемонстрировал, что введенная им энтропия эквивалентна мере неопределённости информации в передаваемом сообщении.

Program prog;
function Search(n: integer): integer;
var
  input: array[1..4] of integer;
  even: array[1..4] of integer;
  atLestOne: boolean;
begin
  input[1] := n div 1000;
  input[2] := n mod 1000 div 100;
  input[3] := n mod 100 div 10;
  input[4] := n mod 10;
  if (input[1] mod 2 = 0)
    begin
      even[1] := input[1];
      atLestOne := True;
    end;
  if (input[2] mod 2 = 0)
    begin
      even[2] := input[2];
      atLestOne := True;
    end;
  if (input[3] mod 2 = 0)
    begin
      even[3] := input[3];
      atLestOne := True;
    end;   
  if (input[4] mod 2 = 0)
    begin
      even[4] := input[4];
      atLestOne := True;
    end;
  if atLestOne = True then
    Search := Low(even)
  else
    Search := -1;
end;