Паскаль

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

Question

Информатика

Евминия

2 июня, 09:07

Паскаль

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

+1

Ответы (1)

Знаете ответ на вопрос?

Петря · 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.

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

Паскаль

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