Интересная задача

[Poma][a]

День Добрый

Встретилась более-менее интересная (для меня) задачка. Вот собственно и она : Возьмем и выпишем огроменное кол-во чисел в строку : 123456789101112131415161718192021 и т.д. Теперь возьмем и выведем s[n]. Вот и всё..


Кроме решение в лоб я ничего хорошего не вижу..

"В лоб" подразумевает следующее (не проверял) :

ReadLn (n);
k := 1;
s := '';

while Length(s) < n do begin
      Str (TempStr, k);
      s := s + TempStr;
      Inc (k);
      if Length(s) + k >= 255 then begin
            Delete (s, 1, 254);
            Dec (n, 254)
      end
end;

Но хочется красоты.. Не подскажете как можно решить задачу более красивым способом ? Заранее спасибо!

[Sciv]

лично я вообще ниче не понял, ибо туп сегодня до неприличия. Что есть s[n] и как она связана с предыдущей толпой цифирок?

[Poma][a]

Дается число N. Далее сидим и выписывает натуральные числа :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ..

Пробелы для наглядности.. Теперь уберем их

1234567891011121314..

Теперь берем и выводим N-ый символ этой последовательности.
Пример : N = 8
Символ : 8

N = 15
Символ : 2

[Вадим Мошев]

Мне кажется, задача состоит в следующем.
Берутся все натуральные числа и записываются слитно, так, что получается одна большая строка: 1234567891011121314151617181920....

На вход подаётся число n и эта огромная строка.
Нам необходимо, я так полагаю, удостовериться, что число n свалено в эту туеву хучу чисел.
Я прав?

[Poma][a]

На вход подаётся число n и эта огромная строка.

Только N
Мы сами должны сгенерировать это строку и вывести её N-ый символ

[Stilet]

Не понял чем задача интересна?
У тебя есть массив. Выводи нужный элемент из него...

[Sciv]

Для последовательного ряда и чисел до 99 включительно можно так:

if n<10 then writeln(n) 
else if (n>=10) and (n<100) then begin
  if odd(n) then writeln(n div 10)
  else writeLn(n mod 10 div 2);
end;

[Poma][a]

У тебя есть массив. Выводи нужный элемент из него...

Для начала его(массив) нужно получить..

Но возможно есть более хитрый алгоритм..

[Stilet]

Мдя... мне не понять...

[Poma][a]

Для последовательного ряда и чисел до 99 включительно можно так:

Супер!! 10 букоф