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

#include <stdio.h>

int digitcount(int k){
    int i=1;
    for(;k>=10;i++) k/=10;
    return i;
}
 
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 ispalindrom(int k){
    int len,i;
    len=digitcount(k);
    for(i=1; i<=len; i++)
        if (digitn(k,i)!=digitn(k,len-i+1)) return 0;
   return 1;
}
 
int main(void)
{
    int i, k,count=0;
    for (i=1; i<=10; ++i){
        printf("K:");
        scanf("%i", &k);
 
        count+=ispalindrom(k);
    }
    printf("Count: %i\n",count);
    return 0;
}

import random

def Palindrom(K):
    return int(str(K) + str(K)[::-1])

def IsPalindrom(K):
    result = False
    num = str(K)
    try:
        val = int(num)
        if num == str(num)[::-1]:
            result = True
    except ValueError:
        print("That's not a valid number, Try Again !")
    return result

def IsPalindrom2(n):
    temp=n
    rev=0
    while(n>0):
        dig=n%10
        rev=rev*10+dig
        n=n//10
    if(temp==rev):
        result = True
    else:
        result = False
    return result


for i in range(0,10):
    x = random.randrange(1,10000)
    #x = Palindrom(x)
    print(x,":",IsPalindrom(x))
    #print(x,":",IsPalindrom2(x))

									

program Proc31;
//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;
 
//proc29
Function DigitCount(K:Integer):Integer;
var S :String;
begin
  Str(K,S);
  DigitCount:=Length(S);
end;
 
Function IsPalindrom(K:Integer):Boolean;
var i,Len :integer;
begin
  Len:=DigitCount(K);
  IsPalindrom:=True;
  for i:=1 to Len do
   if DigitN(K,i)<>DigitN(K,Len-i+1) Then IsPalindrom:=False;
 
end;
 
var
  i,K:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('K :');
   Readln(K);
 
   Writeln(IsPalindrom(K));
  end;
end.