Question

Напишите программу в ПаскалеABC, выводящую n-ую цифру в последовательности натуральных чисел : 1234567891011...
Вводится число n до 100
При решении этой задачи нельзя использовать любой из видов условной инструкции if.
Вывести надо только ответ

Answer 1

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var n:=ReadInteger('n=');
  Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.