ПаскальДаны целое число k (1≤ k≤ 180) и последовательность цифр 10111213...9899, в которой выписаны подряд все двухзначные числа. Определить k-ю цифру.
Паскаль
Даны целое число 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.
Не нашли ответ?
Похожие вопросы