Aiuto urgente, please

[fedekarl]

Avrei bisogno di qualcuno che potesse realizzare un programma in linguaggio Turbo Pascal , per la scomposizione di un numero in fattori primi. Vi prego!!

Grazie anticipatamente per l'aiuto.

 

[francovb]

PROBLEMA RISOLTO

Ciao il codice è il seguente:

PROGRAM PROVA;
USES CRT;
VAR NUMERO:INTEGER;
CT:INTEGER;
FLAG:BOOLEAN;
Q,R:INTEGER;
TEMP:INTEGER;
BEGIN
CLRSCR;
GOTOXY (2,5);
WRITE ('SCOMPOSIZIONE IN FATTORI PRIMI DI UN NUMERO');
GOTOXY (2,7);
WRITE ('INSERIRE UN NUMERO:'); READLN(NUMERO);
FLAG:=FALSE;
CT:=2;
TEMP:=NUMERO;
CLRSCR;
WHILE FLAG=FALSE DO
BEGIN
Q:=(TEMP DIV CT);
R:=TEMP-Q*CT;
IF (R=1) OR (R>1) THEN
CT:=CT+1;
IF R=0 THEN
BEGIN
WRITELN(CT);
TEMP:=Q;
END;
IF TEMP=1 THEN
BEGIN
FLAG:=TRUE;
READLN;
END;
END;
END.

Testo e produce risultati attendibili;

Ciao