Exercice 8 (Algorithmes récurrents)

Admin Messages : 74 Date d'inscription : 02/03/2011

Exercice 8 (Algorithmes récurrents)

Ecrire un programme qui permet de calculer la somme des chiffres d'un entier n(la somme doit étre composer d'un seul chiffre).
exemple:N=71863 7+1+8+6+3=25
la somme =2+5=7

Correction

Code:: program somme_chiffre;
uses wincrt;
var
n:longint;
x:byte;
function somme(n:longint):byte;
begin
if n<10 then
somme:=n
else
somme:=(n mod 10)+somme(n div 10);
end;
begin
writeln('n=');
readln(n);
x:=somme(n);
writeln('la fonction retourne:',somme(x));
end.

» Exercice 6 (Algorithmes récurrents)
» Exercice 2 (Récursivité)
» Exercice 4 (Récursivité)