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