Exercice 16 : Affichage des diviseurs

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
  pour i allant de 2 à DiviseurMax
    si le reste de la division de NombreUser par i est 0 alors
      ecrire i
    finsi
  finpour
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 ("-1, 1");
  }
  else {
    printf ("1");
  }
  if (NombreUser % 2 == 0) {
    DiviseurMax = NombreUser/2;
  }
  else {
    DiviseurMax = (NombreUser+1)/2;
  }
  for (i=2; i<=DiviseurMax;i++) {
    if (NombreUser % i == 0) printf (", %d",i);
  }
}

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