Question

Помогите по информатике!!!!Нужен текст на паскале. Среди чисел последовательност 1 , 2 , 4 , 8 , 16 , 32... найдите количество чисел до первого шестизначного .

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  SeqWhile(1,t->2*t,t->t<100000).Count.Println
end.

Результат
17

Answer 2

Конечно, помогу! Для нахождения количества чисел до первого шестизначного числа в последовательности 1, 2, 4, 8, 16, 32... можно использовать язык программирования Паскаль. Ниже представлен текст программы на Паскале, который решает данную задачу:

pascalCopy code
program CountSixDigitNumbers;

var
  currentNumber, count: integer;

begin
  count := 0;
  currentNumber := 1;

  while currentNumber < 100000 do
  begin
    count := count + 1;
    currentNumber := currentNumber * 2;
  end;

  writeln('Количество чисел до первого шестизначного: ', count);
end.

Программа будет последовательно удваивать текущее число (currentNumber) и увеличивать счетчик чисел (count) до тех пор, пока текущее число не станет больше или равно 100000. После этого программа выведет количество чисел до первого шестизначного числа в последовательности.