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

#include <stdio.h>
int digitcount(int k){
    int i=1;
    for(;k>=10;i++) k/=10;
    return i;
}
 
int main(void)
{
    int i, k;
 
    for (i=1; i<=5; ++i){
        printf("K:");
        scanf("%i", &k);
        printf("count: %i\n",digitcount(k));
    }
 
    return 0;
}

import random
import math

def DigitCount(N):
    i = 0
    q = N
    while q >= 1:
        q /= 10
        i += 1
    return i

for i in range(0,10):
    x = random.randrange(1,100)
    #print(x,end="; ")
    print(x,":",DigitCount(x))
									

program Proc29;
 
Function DigitCount(K:Integer):Integer;
var S :String;
begin
  Str(K,S)  ;
  DigitCount:=Length(S);
end;
 
var
  i,N:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);
 
   Writeln(DigitCount(N));
  end;
end.