Решение задачи While 18

#include <stdio.h>
int main(void)
{
   int n;
   printf("N:");
   scanf ("%i", &n);
   while (n>0) {
       printf("%i\n",n%10);
       n /=10;
   }
   return 0;
}

import random

N = random.randrange(1,10000000)
print("N = ",N)
q = N
i = 0
s = 0
while q >= 1:
    i += 1
    r = q % 10
    s += r
    print(i," - ",r," - ",s)
    q = int(q/10)

print("Количество цифр:",i)
print("Сумма цифр:",s)
									

program While18;
var
  N, Num, Sum, Temp:Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  Sum:=0;
  Num:=0;
  while N>0 do
  begin
   Inc(Num,1);
   Temp:=N mod 10;
   Sum:=Sum+Temp;
   N:=N div 10;
  end;
  Writeln(Num,' ',Sum);
end.