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