Даны целое число k (1<=k<=180) и последовательность цифр 10111213…9899, в которой выписаны подряд все двузначные числа. Определить номер пары цифр, в которую входит k-я цифра.


Мне очень нужна помошь! Никак немогу сделать... Если кто сможет напишите пожалуйста....Заранее спасибо

var
  s, temp: String;
  i, k: Integer;

begin
  s := '';

  for i := 10 to 99 do begin
    Str(i, temp);
    s := s + temp;
  end;

  write('k = '); readln(k);

  Str(k, temp);

  writeln(Pos(temp, s) div 2 + 1);
end.

Если строками пользоваться нельзя, дело обстоит много хуже.