Como desglosar un número en unidades independientes en C, Java, Python, Small Basic

Diario de un programador. Anexo B: Códigos

Desglose de números: Programa que solicita un numero y lo muestra en unidades independientes


C
Programa utilizado: Code Blocks 13.12

#include <stdio.h>

  int main(void){

  int num, resto, a, i = 0;

  int arreglo[20];

  printf("Ingresa un numero: ");

  scanf("%d", &num);

  while(num > 0){

    i++;

    resto = num % 10;

    num = num / 10;

    arreglo[i] = resto;

  }//fin while

  for(a = i; a > 0; a--){

    if(a > 1){

      printf("%d,", arreglo[a]);

    }//fin if

    else{

       printf("%d",arreglo[a]);

    }

  }//fin for

  return 0;

}//fin main

//Escrito por Gustavo J. Cerda Nilo, noviembre 2015

JAVA
Programa utilizado: Net Beans 8.0.1

import java.util.Scanner;

public class desgloce{

  public static void main(String[]args){

   

    Scanner ingreso = new Scanner(System.in);

    int num, resto, a, i = 0;

    int arreglo[] = new int[20];

   

    System.out.print("Ingresa un numero: ");

    num = ingreso.nextInt();

    while(num > 0){

     

      resto = num % 10;

      num = num / 10;

      arreglo[i] = resto;

      i++;

    }//fin while

   

   

    for(a = i; a > 0; a--){

       if(a > 1){

        System.out.printf("%d,", arreglo[a-1]); 

      }//fin if 

      else{

        System.out.printf("%d\n", arreglo[a-1]); 

      }//fin else

    }//fin for

  }//fin main   

}//fin class

//Escrito por Gustavo J. Cerda Nilo, diciembre 2015

PYTHON 3.5

Programa utilizado: Idle

numero = int(input("Ingresa un numero: "))

i = 0

arreglo = []

while numero > 0:

    i = i + 1

    resto = numero % 10

    numero = int(numero / 10)

    arreglo.append(resto)

for a in range(i, 0, -1):

    if a > 1:

        print("%d," % (arreglo[a-1]), end = "")

    else:

        print(arreglo[a-1])

#Escrito por Gustavo J. Cerda Nilo, noviembre 2015

SMALL BASIC

Programa utilizado: Small Basic 1.1

TextWindow.Write("Ingresa un numero: ")

numero = TextWindow.ReadNumber()

i = 0

While numero > 1

  i = i + 1

  resto = Math.Floor(Math.Remainder(numero, 10))

  numero = numero / 10

  arreglo[i] = resto

EndWhile

For a = i To 1 Step - 1'del numero mayor i hasta 1

  If a > 1 Then

    TextWindow.Write(arreglo[a] + ",")

  Else

    TextWindow.WriteLine(arreglo[a])

  EndIf

EndFor

'Escrito por Gustavo J. Cerda Nilo, Noviembre 2015