Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 8 (Algorithmes récurrents)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

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

MessageSujet: Exercice 8 (Algorithmes récurrents)   Lun 28 Mar - 2:34

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.

Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 8 (Algorithmes récurrents)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: