Помогите мне разобраться и решить эту задачу

begin
readln(k);
number := ((k - 1) div 2) + 10; { <-- поскольку последовательность начинается с 10 }
if odd(k)
then writeln(number div 10) { <-- нечетный номер цифры - первая цифра в числе }
else writeln(number mod 10); { <-- четный номер - вторая цифра }
end.
М | Сообщение выделяется в отдельную тему |
М | Тогда я просто объединяю эти две темы. |