Программа


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.


Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию