Даны целое число k (1 меньше =k меньше =252) и последовательность цифр 505152....250, в которой выписаны подряд все натуральные числа от 50 до 250. Нужно. определить k-ую цифру.
Даны целое число k (1<=k<=252) и последовательность цифр 505152....250, в которой выписаны подряд все натуральные числа от 50 до 250. Нужно. определить k-ую цифру.
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.1 сборка 1200
var
s: string;
k, i: integer;
begin
readln(k);
for i := 50 to 250 do
s := s + IntToStr(i);
writeln(s[k]);
end.
Не нашли ответ?
Похожие вопросы