Помогите решить задачу на паскаль

[Shampoo]

Решаю первую часть задачи - " Рассмотрим последовательность 110100100010000..., в которой выписаны подряд степени числа 10. Цифры в этой последовательности нумеруются слева направо, начиная с единицы."
условие: 1<k<10^9

Поправьте меня, что не так в коде

var
  i, j, k, pr, s, sum : integer;
  
  begin
    pr := 1;
    s := 10;
    sum:= 1;
    for i := 1 to 9 do
    begin
      for j:= 1 to i do
      begin
        pr := 10*pr; 
        s := s*10; 
        sum := sum * s + pr; 
      end;
    end;
    
    writeln(sum);
  end.

[p51x]

Так что сделать то надо? Что такое k? Что вы в коде считаете?

[Shampoo]

p51x, Нужно сделать вышеописанное задание, код который я написал не работает, выводит не последовательность, а выводит "0"

[Shampoo]

p51x, K, предназначена для следующей части задачи, с которой проблем пока нет

[p51x]

если вам нужна последовательность, то и делать надо строками, а не интами

r := '1';
t := '1';
for i := 1 to k do
begin
  t := t + '0';
  r := r + t;
end;

[BDA]

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

[p51x]

BDA, скорее всего, но ТС партизанит

[Cuprum5]

Так что-ли надо?

Program Pascal;
Var
    i, j, k, pr, s, sum: integer;
    str, tmp: string;
Begin
    pr := 1;
    s := 10;
    sum:= 1;
    
    tmp:='';
    str:='';
    For i := 1 to 9 do
    begin
        tmp := IntToStr(pr);
        str := str+tmp;
        pr := 10*pr;
        s := 10*s; 
        sum := sum*s + pr; 
    end;
    
    WriteLn('sum = ', sum);
    WriteLn('str = ', str);
End.

[p51x]

Cuprum5, а вы какую задачу решали то?

[сфинкс]

Количество нулей в очередной степени числа 10^N вычисляет логарифм +1

Значит возможно вычислять на каком месте 1-цы единицы
зная порядок вида 100 это 1 и далее нулей как =LOG(100;10)=2

Осталось стартовать цикл и запомнить новые слова: логарифм и интеграл

https://www.youtube.com/watch?v=GMBGQbEBbfY