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.