Программа
Program Pilshikov_5_57_01 (input,output);
{ Задано натуральное k.
Напечатать k-ю цифру
последовательности
1234567891011121..., в которой
выписаны подряд все натуральные
числа. }
Var K,
CurrentQuantitySymbol,
CurrentInteger,
PowerCurrentInteger:integer;
KSymbol:0..9;
BEGIN
Write('Введите K ');
Readln(K);
CurrentInteger:=1;
PowerCurrentInteger:=10;
CurrentQuantitySymbol:=1;
while K>CurrentQuantitySymbol do
begin
K:=K-CurrentQuantitySymbol;
CurrentInteger:=CurrentInteger+1;
if CurrentInteger=PowerCurrentInteger then
begin
CurrentQuantitySymbol:=CurrentQuantitySymbol+1;
PowerCurrentInteger:=PowerCurrentInteger*10
end
end;
for K:=K to CurrentQuantitySymbol-1 do
CurrentInteger:=CurrentInteger div 10;
KSymbol:=CurrentInteger mod 10;
Writeln(KSymbol)
END.
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию