Есть числовой ряд: 101112...979899, в котором подряд выписаны все двухзначные числа. Определить двухзначное число из этого ряда, образованное парой цифр, в которую входит k-ая цифра. k вводится и лежит в диапазоне от 1 до 180. ...
Есть числовой ряд: 101112...979899, в котором подряд выписаны все двухзначные числа. Определить двухзначное число из этого ряда, образованное парой цифр, в которую входит k-ая цифра. k вводится и лежит в диапазоне от 1 до 180. Например, если вводится k=3, то в ряду это цифра 1, которая входит в двухзначное число 11.
Гость
Ответ(ы) на вопрос:
ГостьProgram test ;
Var
a:string;
k, i, i1:integer;
Begin
If k<=180 then begin
For i:=1 to 9 do begin
For i1:=0 to 9 do a:=a+str(i*10+i1);
End;
If k mod 2 = 0 then writeln(copy(a,k-1,2));
Else writeln(copy(a,k,2);
End;
Else writeln('Введённое число больше допустимого значения');
End;
Не нашли ответ?
Похожие вопросы