в ряд записаны натуральные числа без разделения запятой 1234567891011121314151617181920 какое число будет на 2007 месте?

Вопрос некорректный. Вернее, не совсем понятный. Имеется в виду, какая цифра? Уважаемый Kylychbek Turdakunov несколько ошибся - в типе string (wide string) элементы нумеруются с 0, поэтому нужно не прибавлять 1, а отнимать.

По моим подсчетам, получается 5-ка
program a2007;
uses Crt;
var i, j, k: Integer; ss: string[4]; St: Array[1..2007] of Char;
begin
i:= 1;
k:= 1;
while k <= 2007 do
begin
Str(i, ss);
for j:= 1 to Length(ss) do
begin

St[k]:= ss[j];
write(St[k]);
Inc(k);
end;
Inc(i);
end;
writeln;
writeln('2007: ' + St[2007] + ' from: ' +
ss + ' i=', i,
' j=', j, ' k=', k);
ReadLn;
end.

Ну ты ЖЖОШЬ

в ряд записаны натуральные числа без разделения запятой 1234567891011121314151617181920 какое число будет на 2007 месте?
2007

Первые 9 чисел займут 9(9Всего) мест, от 10 до 99 займут 99 * 2мест (207Всего) , от 100 до 200 займут 300(507Всего) мест, 200=>300 300(807Всего) Дальше 300-400(1107Всего) , 400-500(1407Всего) , 500-600(1707Всего) , 600-700(2007Всего) То есть 700.
Как показал компилятор, я ошибался, вот программа на Яве.
public class Hello_jAvaa{
public static void main(String[] args) {
int num=0,length=0;
do
{
num++;
length+=(int)Math.log10(num)+1;
}while (length!=2007);
System.out.println(""+num);
}
}
Вывод 705.
Не знаю что там на Дельфи.

Позвольте спросить, а при чём тут Программирование

Будет 7