/* somma1 */

ese:-
sommare(5,0).

sommare(N,Somma):-
N>0,!,
Somma1 is Somma+N,
N1 is N-1,
sommare(N1,Somma1).
sommare(N,Somma1):-
write(['somma eseguita=',Somma1]),nl.

/* somma2 */

ese:-
prompt_read(['scrivi numero dati da inserire'],Dati),
sommare(0,0,Dati).

sommare(N,Somma,Dati):-
N1 is N+1,
N<Dati,
Somma1 is Somma+N1,
write([N1,Somma1]),nl,
sommare(N1,Somma1,Dati).
sommare(N1,Somma1,Dati):-
write(['somma eseguita :',Somma1]),nl,
Media is Somma1/Dati,
write(['media eseguita  :',Media]),nl.

/* somma3 */

ese:-
prompt_read(['scrivi numero dati da inserire'],Dati1),
Dati is Dati1+1,
sommare(1,0,Dati).

sommare(N,Somma,Dati):-
N<Dati,
prompt_read(['scrivi numero intero '],Intero),
Somma1 is Somma+Intero,
write([Intero,Somma1]),nl,
N1 is N+1,
sommare(N1,Somma1,Dati).
sommare(N1,Somma1,Dati):-
write(['somma eseguita :',Somma1]),nl,
Dati1 is Dati-1,
Media is Somma1/Dati1,
write(['media eseguita  :',Media]),nl.