Начали изучать Паскаль и дали вот такую задачу:С клавиатуры вводится целое число k (1 ≤ k ≤ 180) . Определить k-ю цифру в последовательности двузначных чисел, выписанных подряд (1011121314............979899).Помогите решить пож...
Начали изучать Паскаль и дали вот такую задачу:С клавиатуры вводится целое число k (1 ≤ k ≤ 180) . Определить k-ю цифру в последовательности двузначных чисел, выписанных подряд (1011121314............979899).Помогите решить пожалуйста и желательно объясните.Буду очень благодарен.Спасибо.
Гость
Ответ(ы) на вопрос:
ГостьДвухзначное число имеет два разряда - десятки и единицы. Если k нечетное, то это цифра десятков в числе, а если четное - цифра единиц. А само число определяется как 10 плюс частное от целочисленного деления k-1 на 2.
var
n, k: integer;
begin
Write('Введите натуральное число k (k<=180): ');
Readln(k);
n := 10 + (k - 1) div 2;
if (k mod 2 = 0) then n := n mod 10
else n := n div 10;
Writeln('Искомая цифра- ', n)
end.
Тестовое решение:
Введите натуральное число k (k<=180): 7
Искомая цифра- 1
Не нашли ответ?
Похожие вопросы