Recherche de nombres spéciaux

Salut à tous,

Je trouve des difficultés dans de la résolution d'un exercice que je dois rendre lundi 30 Mars 2007. Je vois pas comment l'attaquer en utilisant les sous-programmes!

informiX a écrit:
Ecrire en PASCAL un programme qui détermine tous les nombres entiers positifs P inférieurs à N (N>5) tels que P soit un diviseur de la somme de tous ses diviseurs.
On donne des exemples:

• 6 vérifie les conditions de l'exercice car la somme des diviseurs de 6 est 1+2+3+6=12, et 6 est un diviseur de 12.
  
• 15 n'est pas une solution, car la somme de ses diviseurs est 1+3+5+15 = 24 non divisible par 15.
  

Vous devez utiliser au moins deux sous-programmes !!!

On nous a signalé que ça peut être le sujet d'un BAC PRATIQUE Tunisien. Merci pour l'aide.

informiX

salut informix,
je suis pas vraiment douée dans ce genre d'exercice!! mais voila ma proposition
(rq: point de vue exécution ça marche)!!
program diviseurs;
uses wincrt;
var
n:integer;
x:boolean;


procedure saisie( var n:integer);
begin
repeat
write('saisir un entier ');
read(n);
until n>5;
end;


function calcul(n:integer):boolean;
var
i,s:integer;
c:boolean;
begin
s:=0;
for i:= 1 to n do
if n mod i=0 then s:=s+i;

if s mod n=0 then
c :=true
else c:=false;
calcul:=c;
end;

begin
saisie(n);
x:=calcul(n);
if x=true then write(n, ' est une solution')
else write(n,' n est pas une solution');
end.
a+

salut nadou,

tu es très activveeeee tbarkallah
C'est quel lycée par hasard?


merci pour l'aide. juste une ptite correction, il ne s'agit pas de vérifier si N est une solution ou non, mais plutôt de chercher toutes les solutions inférieures à N.
il suffit d'ajouter à ta proposition une boucle


thank you very much pour les indications.
la prochaine fois je te propozzzzrai un exercice bocou bocou difficile.
a toiiii aussi de me proposer des trucs difficiles en analyse, et pq pa en info


informiX