Question

Дано натуральнок K от 1 до 180.Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213...9899. Формат входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1.in Task1.out 4 1 8 3

Answer 1

Var k: integer;
  f: Text;
begin
  assign(f, 'Task1.in');
  reset(f);
  readln(f, k);
  close(f);
  assign(f, 'Task1.out');
  rewrite(f);
  
  if (k mod 2 = 0) then
    writeln(f, ((k-1) div 2) mod 10)
  else 
    write(f, (k div 2) div 10 + 1);

  close(f);
end.