Baccalauréat 2010 Sujet 2

RÉPUBLIQUE TUNISIENNE MINISTÈRE DE L’ÉDUCATION  ¯¯¯¯¯ EXAMEN DU BACCALAURÉAT SESSION 2010	Épreuve pratique d’informatique
	Sections : Mathématiques, Sciences expérimentales et Sciences techniques
	Coefficient de l’épreuve : 0.5	Durée : 1h

 

Important : Dans le répertoire Bac2010, créez un dossier de travail ayant comme nom votre numéro d’inscription (6 chiffres) et dans lequel vous devez enregistrer, au fur et à mesure, tous les fichiers solutions de ce sujet.

 

Ecrire un programme Pascal qui permet de déterminer si un entier donné n (n ≥ 10) est divisible par 7 ou non, en appliquant la méthode suivante :

1) supprimer le chiffre des unités de n

2) calculer la valeur absolue de la différence entre le nombre obtenu en 1) et le double du chiffre d’unité supprimé

3) recommencer les étapes 1) et 2) jusqu’à obtenir un nombre à un seul chiffre

4) si ce chiffre obtenu en 3) est égal à 0 ou égal à 7 alors, le nombre n est divisible par 7.

Exemples :

Pour n= 345678   34567-2*8 = 34511 3451 -2*1=3449 344-2*9 = 326 32-2*6 = 20 2-2*0 = 2   donc le nombre 345678 n'est pas divisible par 7

Pour n= 11340   1134-2*0 = 1134 113-2*4 = 105 10-2*5 = 0   donc le nombre 11340 est divisible par 7

 

 

Grille d’évaluation
Questions	Nombre de points
Décomposition en modules utiles à la solution proposée (déclarations et appels) Structures de données adéquates Saisie et contrôle des données Traitement avec les structures de contrôles adéquates Compilation	4 2 3 8 3