Определение к-той цифры.

[Диман56]

ТЗ: дан ряд 3-значных чисел, от 101 до 150(101102103104105.....149150).
Вводится с клавиатуры число к(1<=k<=150). Требуется найти к-тую цифру. Наработки: определил число, содержащее к-тую цифру, определил место в этом числе к-той цифры. Теперь требуется найти саму к-тую цифру. Ветвления, циклы и прочее нельзя. В школе начали Паскаль учить, в основном пишу на С. Так бы я сейчас сделал бы if и не было бы проблем. Но нельзя. Вот мой код:

Program Primer;
var k,n,o:integer;
BEGIN
writeln('Введите к:');
read(k);
n:= k div 3 +1;
o:=k mod 3;
n:=n+100;
(*n-число, содержащее к-тую цифру, o-позиция к-той цифры в числе n*)
END.

[Alex11223]

Так бы я сейчас сделал бы if и не было бы проблем

Какой if? В Паскале по вашему нету if?)

[Диман56]

Есть то он есть, но толку от него 0. Мы учили только линейные операторы и if нельзя использовать).

[Alex11223]

(1<=k<=150)

101≤k≤150, может быть?
Или 1≤k≤50

[Диман56]

нет. всего цифр(не чисел)-150. Поэтому 1<=k<=150.

[Alex11223]

Ну раз у нас только 3-значные числа, то как-то так:

c3:=n mod 10;
n:=n div 10;
c2:=n mod 10;
n:=n div 10;
c1:=n mod 10;

[Диман56]

Спасибо конечно, но ведь у нас к-тая цифра. Либо 1, либо 2, либо 3. То есть, нам надо это как-то связать с к.

[VadikV]

Интересная задача. Хорошо пришлось логику включить
Вот, что получилось:

var
   k, n, o, r, c : integer;

begin
  Readln(k);

  n := 100 + ((k-1) div 3) + 1;

  r := k mod 3;
  o := 1;
  o := o + 9 * (r div 2);
  o := o + 99 * (r mod 2);

  c := n div o;
  c := c - (c div 10) * 10;
  WriteLn(n, '=', c);

[Диман56]

Спасибо)) Буду вникать. я уже и свой алгоритм вывел, проблема с возведением в степень))) Вот что получилось:

c:=(k mod (1000(10^(k-1)))-k mod (1000/(10^k)))/(1000/(1-^k))