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

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.

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