Помогите пожалуйста с программой на паскале.

[svobodys]

Написать программу

Дано натуральное (К), определить (К-ю) цифру в последовательности
1101001000100010000....

[alexBlack]

Сообщение от svobodys

Написать программу

Дано натуральное (К), определить (К-ю) цифру в последовательности
1101001000100010000....

нолик не пропущен ?
не такая последовательность ?:
1 10 100 1000 10000 100000 1000000

Если да, то последовательно вычитать из К числа натурального ряда пока это возможно. По остатку определить цифру в позиции K.

[svobodys]

а да, опечатался
такая последовательность
1 10 100 1000 10000 100000 1000000

[puporev]

Если да, то последовательно вычитать из К числа натурального ряда пока это возможно. По остатку определить цифру в позиции K.

Наверное надо сделать оговорку if k=1 then x:=1 else ....

[AVer]

Function Power(N,P:Integer):LongInt;
Var I:Integer;
Begin
For I:=1 To P-1 Do
N:=N*N;
Power:=N;
End;

Function Func(K:Integer):String;
Var I,N,J:Integer;
    S:String;
Begin
J:=1;
N:=1;
I:=0;
While J < K Do
 Begin
 Inc(I);
 J:=I+1;
 K:=K-J+1;
 End;
I:=Power(10,I);
Str(I,S);
Func:=S[K];
End;

[alexBlack]

Сообщение от puporev

Наверное надо сделать оговорку if k=1 then x:=1 else ....

Пожалуй. Или ограничить вычитание.

2AVer Возведение в степень в конце - это лишнее.

var j, k, n:integer;
    b:boolean;
begin
   for n := 1 to 29 do begin

      k := n;
      j := 1;
      while j < k do begin
        dec(k, j);
        inc(j);
      end;
      b := k = 1;

      if b
      then write(1)
      else write(0);

   end;
   readln;

2svobodys. Внешний цикл для проверки. Решение внутри цикла.

[puporev]

Цифры 1 занимают места 1,2,4,7,11,16,22,29 и т.д.
Думаем так: если N=1, то x=1. Начиная с 2 считаем если N-1= сумме чисел от 1 до N-1, то х=1, иначе х=0.
P.S. Мысль какая-то хорошая была, а написал глупость.

[alexBlack]

Да не, почему. С нахождением суммы - это интересно. Только не этих чисел, а натурального ряда. Тогда получается квадратное уравнение и решение просто формулой:

var j, k, n, l:integer;
    b:boolean;
begin
   for n := 1 to 50 do begin

      k := n;

      l := trunc( (sqrt(8*k+1-8)-1) /2 );
      b := k - l*(l+1) div 2 = 1;

      write(byte(b):1);
      //if b
      //then write(1)
      //else write(0);

   end;
   readln;

[puporev]

Да я и имел ввиду натуральный ряд (1+2=3+1=4; 1+2+3=6+1=7), Сейчас тоже эту формулу вывел, хотел попроще, но не получается.

[svobodys]

О, спасиба вам большое))