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

#include <bits/stdc++.h>

using namespace std;
void func (int k, int c, int s)
{
    while(k){
        c++;
        s+=k%10;
        k/=10;
    }
    cout << c << "  " << s << endl;
}
int main()
{



    int k, c, s;
    for(int i = 0; i < 3; ++i){ //
        cin >> k; //вводим число
        c = 0, s = 0;
        func(k, c, s); // вызываем функцию
    }

    return 0;
}

import random

def DigitCountSum(K,Result):
    s = str(K)
    n = len(s)
    _sum = 0
    for i in range(n):
        _sum += int(s[i])
    Result['C'] = n
    Result['S'] = _sum
        
    
R = {'C' : None, 'S' : None}
for i in range(5):
    K = random.randrange(1,10000)
    print("Число ",i+1,": ", K)
    DigitCountSum(K, R)
    print('Количество цифр = ', R['C'])
    print('Сумма цифр = ', R['S'])
    print()
									

program Proc6;
 
procedure DigitCountSum(K:Integer; var C,S:Integer);
var
 TempI:Integer;
begin
C:=0;
S:=0;
 
while (k<>0) do
  begin
    S:=S+(K mod 10);
    C:=C+1;
    K:=K div 10;
  end;
end;
 
var
  i,K,C,S:Integer;
 
begin
  for i:=1 to 5 do
   begin
    Write('K: ');
    Readln(K);
    DigitCountSum(K,C,S);
    Writeln(C,' ',S);
   end;
end.