Решение задачи Proc 30

#include <stdio.h>

int digitn(int k, int n){
    int i=1;
    for(i=1; i<=n-1; i++) k/=10;
    if (k!=0) return k%10;
    else return -1;
}
 
int main(void)
{
    int i, k;
    for (i=1; i<=5; ++i){
        printf("K:");
        scanf("%i", &k);
        int i2;
        for (i2=1;i2<=5;++i2)
            printf("DigitN: %i\n",digitn(k,i2));        
    }
    return 0;
}

import random
import math

def DigitN(K,N):
    q = K
    i = 0
    while q >= 1:
        r = q % 10
        q = int(q/10)
        i += 1
        if i == N:
            return r
    return -1

for i in range(0,10):
    x = random.randrange(1,10000)
    N = random.randrange(1,6)
    #print(x,end="; ")
    print(x,":",N,":",DigitN(x,N))
									

program Proc30;
 
Function DigitN(K,N:Integer):Integer;
var i :integer;
begin
  for i:=1 to N-1 do
  begin
    K:=K div 10;
  end;
  if K<> 0 then DigitN:=K mod 10
  Else DigitN:=-1;
end;
 
var
  i,i2,K:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('K :');
   Readln(K);
   for i2:=1 to 5 do
    begin
      Writeln(DigitN(K,i2));
    end;
  end;
end.