Question

Даны целое число k (1<=k<=150) и последовательность цифр 101102103...149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Нужно определить k-ую цифру. Решить нужно в Pascal 3 с использованием строк и логических действий. Заранее огромное спасибо.

Answer 1

Var k,n: integer;  
    s: string;
begin
  write('k = ');  readln(k);
  n:=k div 3;
  k:=k mod 3;
  n:=n+100;
  Str(n,s);
  if k=0 then writeln(s[3])  
  else writeln(s[k])  end.