ПРОГРАММА НА ПАСКАЛЕ, КВАДРАТЫ Опции

[СТАРШИНА]

ПОМОГИТЕ РЕШИТЬ НА ПАСКАЛЕ
Бесконечная последовательность цифр составлена из записанных друг за другом квадратов всех натуральных чисел, начиная с единицы: 149162536…… Требуется определить, какая цифра находится на k- месте в этой последовательности.

[klem4]

один из вариантов

uses crt;

function digit(value: LongInt; digit_num: Byte): Byte;
begin
  while digit_num > 0 do begin
    value := value div 10;
    dec(digit_num);
  end;
  digit := value mod 10;
end;

function DigitsCount(n: LongInt): Byte;
var
  count: Byte;
begin
  count := 0;

  while n > 0 do begin
    inc(count);
    n := n div 10;
  end;

  DigitsCount := count;
end;

function GetDigit(const k: LongInt): LongInt;
var
  s, i: LongInt;
begin
  s := 1;
  i := 2;

  while (s < k) do begin
    s := s + DigitsCount(i * i);
    i := i + 1;
  end;

  GetDigit := digit(pred(i) * pred(i), abs(s - k));
end;

var
  k, i: LongInt;

begin

  clrscr;

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

  writeln('result = ', GetDigit(k));
  writeln;

  for i := 1 to 1000 do begin // можно увеличивать ... это для наглядности
     if i = k then TextColor(Red) else TextColor(White);
     write(GetDigit(i));
     if i mod 70 = 0 then writeln;
  end;
  readln;
end.

[старшина]

один из вариантов

uses crt;

function digit(value: LongInt; digit_num: Byte): Byte;
begin
  while digit_num > 0 do begin
    value := value div 10;
    dec(digit_num);
  end;
  digit := value mod 10;
end;

function DigitsCount(n: LongInt): Byte;
var
  count: Byte;
begin
  count := 0;

  while n > 0 do begin
    inc(count);
    n := n div 10;
  end;

  DigitsCount := count;
end;

function GetDigit(const k: LongInt): LongInt;
var
  s, i: LongInt;
begin
  s := 1;
  i := 2;

  while (s < k) do begin
    s := s + DigitsCount(i * i);
    i := i + 1;
  end;

  GetDigit := digit(pred(i) * pred(i), abs(s - k));
end;

var
  k, i: LongInt;

begin

  clrscr;

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

  writeln('result = ', GetDigit(k));
  writeln;

  for i := 1 to 1000 do begin // можно увеличивать ... это для наглядности
     if i = k then TextColor(Red) else TextColor(White);
     write(GetDigit(i));
     if i mod 70 = 0 then writeln;
  end;
  readln;
end.

Спасибо!