Дана последовательность чисел 1 2 4 8 16. Какой номер будет у числа 1024.
На языке Паскаль

var  a, b: integer;begin  b := 0;  a := 1;  repeat    b := b + 1;    a := a * 2;  until a = 1024;  writeln(b);end.