Décomposition en facteurs premiers

exercice


Ecrire un programme qui stocke la décomposition en facteurs premiers d'un nombre entier strictement positif dans un tableau et ensuite affiche les éléments de ce tableau sous la forme 18 = 2*3*3.

pirate a écrit:exercice
Ecrire un programme qui stocke la décomposition en facteurs premiers d'un nombre entier strictement positif dans un tableau et ensuite affiche les éléments de ce tableau sous la forme 18 = 2*3*3.

Salut,
C'est un peu TROPPPP délicatttt

chehya tayba

voila le code

program decomposition;
uses crt;
var
nombre: integer;
tableau: array[1..10] of integer;
diviseur: integer;
i, j: integer;
Nbrelement: integer;
begin
clrscr;
NbrElement := 0;
diviseur := 2;

write('Entrez le nombre dont vous voulez la decomposition : ');
readln(nombre);

while (nombre <> 1) do
begin
if ((nombre mod diviseur) = 0) then
begin
tableau[NbrElement + 1] := diviseur;
nombre := nombre div diviseur;
NbrElement := NbrElement + 1;
end
else
diviseur := diviseur + 1;
end;

i := 1;
while (i < NbrElement) do
begin
write(tableau[i], '*');
i := i + 1;
end;
writeln(tableau[i]);

readln;
end.