Question

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

Answer 1

var
   k,i:integer;
   s,x:string;
begin
for i:=10 to 99 do  s:=s+IntToStr(i);
writeln(s);
write('Введите число k: ');
readln(k);
x:=s[k];
writeln(k,'-я цифра: ',x)
end.

Answer 2

Это как элемент массива рассматривается. По-другому, я думаю, можно, но не сейчас. Если только кто другой сделает. Если нет, то завтра.