Предмет: Информатика,
автор: люююбааахааа
Даны целое число k (1<=k<=252) и последовательность цифр 505152....250, в которой выписаны подряд все натуральные числа от 50 до 250. Нужно. определить k-ую цифру.
Ответы
Автор ответа:
0
//PascalABC.Net 3.1 сборка 1200
var
s: string;
k, i: integer;
begin
readln(k);
for i := 50 to 250 do
s := s + IntToStr(i);
writeln(s[k]);
end.
var
s: string;
k, i: integer;
begin
readln(k);
for i := 50 to 250 do
s := s + IntToStr(i);
writeln(s[k]);
end.
Похожие вопросы
Предмет: География,
автор: Аноним
Предмет: Русский язык,
автор: dariya777777
Предмет: Математика,
автор: tocalifeworld464
Предмет: Физика,
автор: xoma102