Exercice 17 : Affichage des diviseurs premiers

debut du programme Diviseurs
  ecrire 'Entrez le nombre pour lequel vous voulez les diviseurs : '
  lire NombreUser
  si NombreUser est inférieur à 0 alors
    ecrire '-1, 1'
  sinon
    ecrire '1'
  finsi
  DiviseurMax <- NombreUser divisé par 2 plus 1
  i <- 2
  tant que NombreUser >= 1 
    si le reste de la division de NombreUser par i est 0 alors
      NombreUser <- NombreUser divisé par i
      ecrire i
    sinon
      i <- i+1
    finsi
  fintant que
fin

#include <stdio.h>
main () {
  int NombreUser, DiviseurMax, i;
 
  printf ("Entrez le nombre pour lequel vous voulez les diviseurs :");
  scanf("%d",&NombreUser);
  if (NombreUser < 0) {
    printf ("n-1, 1");
  }
  else {
    printf ("n1");
  }
  i = 2;
  while (NombreUser >= 1) {
    if (NombreUser % i == 0) {
      printf (", %d",i);
      NombreUser = NombreUser / i;
    }
    else {
      i++;
    }
  }
  printf("n");
}

#!/usr/bin/perl
 
print "Entrez le nombre pour lequel vous voulez les diviseurs : ";
$NombreUser = <STDIN>;
chomp($NombreUser);
if ($NombreUser < 0) {
  print "n-1, 1";
}
else {
  print "n1";
}
$i=2;
while ($i <= $DiviseurMax) {
  if ($NombreUser % $i == 0) {
    $NombreUser = $NombreUser / $i;
    print ", $i";
  }
  else {
    $i++;
  }
}