[Pascal] Дано натуральное k от 1 до 500. Написать программу для определения цифры, которая находится в k-той позиции последовательности. 110100100010000100000...

[Muukaramiskarhu]

Дано натуральное k от 1 до 500. Написать программу для определения цифры, которая находится в k-той позиции последовательности. 110100100010000100000...

Формат входных данных:
Файл содержит число k - позиция искомой цифры.

Формат выходных данных.
Выходной файл содержит искомую цифру.

[Serge_Bliznykov]

позволю себе опубликовать чужое решение, найденное поиском через гугл

{ (с) Arcor }

var i, j, k: Integer;
begin
  repeat
     ReadLn(k); // ввод проверяемой переменной
  until (k>0) and (k<=500);
 
  i := 0;
  j := 1;
 
  while j <= k do
    begin
      i := i + 1;
      j := j + i;
    end;
 
  if j - i = k then
    Writeln('1')
  else
    Writeln('0');
  Readln;
end.

[Muukaramiskarhu]

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

позволю себе опубликовать чужое решение, найденное поиском через гугл

Спасибо. Действительно, как я до этого не догадался. Спасибо еще передайте автору . Закройте тему что-ли :*

[Aleksandr H.]

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

позиции последовательности. 110100100010000100000...

Что за последовательность?

[Muukaramiskarhu]

Сообщение от Aleksandr H.

Что за последовательность?

Мне кажется, что это последовательность, записанная в строку без пробела.

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Что за последовательность?

степени числа 10 записанные в одну строчку без пробелов:
10^0 10^1 10^2 10^3 10^4 10^5 и т.д. до бесконечности.
-> 1 10 100 1000 10000 100000 -> 110100100010000100000

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

Спасибо.

Пожалуйста. Найти чужое решение не трудно

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

Закройте тему что-ли :*

А смысл в этом какой? Пожалуй, не стоит закрывать.
Без крайней необходимости темы на данном форуме не закрываются.

[Aleksandr H.]

Для "особо одаренных" можете расписать смысл алгоритма?

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Для "особо одаренных" можете расписать смысл алгоритма?

переменная i - (счётчик по сути) - это длина очередной степени десятки (сначала длина 1, потом длина 2, потом длина 3 и т.д.
а j - накапливает длину строки последовательности - она вычисляется - к предыдущей длине строки добавляем очередную длину степени десятки.
крутим цикл, пока длина строки с последовательностью j не станет больше и равной заданному числу k
дальше вычисляем, куда наша цифра k попала - на начало очередной степени (j - i)=k - и тогда это циферка "1"
в противном случае это "0"

вот и всё.

[Аватар]

Можно и без цикла магической формулой

  i:=Trunc(Sqrt(8*k-7));
  if i*i=8*k-7 then Writeln('1') else Writeln('0');

[Serge_Bliznykov]

Сообщение от Аватар

Можно и без цикла магической формулой

Красиво!!
А разоблачение магии будет?