Сколько шаров выпало в лотерее, если известно, что участвовали 128 шаров и сообщение о номерах выпавших шаров содержит 70 бит информации?

N=128  i=7 бит/1 шар
70/7=10 шаров

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение:

Сериал повествует о жизни круглых персонажей в стране «Смешариков». У каждого героя свой взгляд на вещи, свои увлечения и яркий характер. Ежедневно герои попадают в неожиданные ситуации или создают их сами.В сериале представлены герои трёх возрастных групп — дети-подростки (Крош, Ёжик, Нюша, Бараш), взрослые (Лосяш, Пин), и пожилые (Кар Карыч, Совунья, Копатыч). Главные герои:

Крош

Ёжик

Нюша

Бараш

Совунья

Кар-Карыч

Пин

Копатыч

Лосяш

Панди

Биби

Ну а если посчитать, всего их 77 (это Группы персонажей

Смешарики: основные персонажи (9)

Смешарики: прочие персонажи (34)

Смешарики: искусственно созданные персонажи (11)

Смешарики: вымышленные персонажи (23))

4.?