Programmation pascal
Résolu/Fermé
A voir également:
- Programmation pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Application de programmation - Guide
- Dev-pascal - Télécharger - Édition & Programmation
- Programmation logo tortue télécharger - Télécharger - Études & Formations
1 réponse
bonjour
tu dois prendre ton nombre entier et faire des divisions successives par 10 pour isoler les chiffres de ton nombre
chaque chiffre etant le reste de la division (l'operateur mod). que tu placeras dans un tableau d'entiers.
tu eleveras au carre chaque chiffre de ce tableau et tu feras la somme de ces carres.
234
234 mod 10 donne 4 et 234 div 10 donne 23
23 mode 10 donne 3 et 23 div 10 donne a 2
2 mode 10 2 et 2 div 10 donne 0
ton tableau contiendra 4, 3, 2
donc tu fais une boucle jusqu'a ce que ton dividende soit egal a zero.
tu dois prendre ton nombre entier et faire des divisions successives par 10 pour isoler les chiffres de ton nombre
chaque chiffre etant le reste de la division (l'operateur mod). que tu placeras dans un tableau d'entiers.
tu eleveras au carre chaque chiffre de ce tableau et tu feras la somme de ces carres.
234
234 mod 10 donne 4 et 234 div 10 donne 23
23 mode 10 donne 3 et 23 div 10 donne a 2
2 mode 10 2 et 2 div 10 donne 0
ton tableau contiendra 4, 3, 2
donc tu fais une boucle jusqu'a ce que ton dividende soit egal a zero.
18 juin 2009 à 13:48
program une_somme ;
uses wincrt;
Var
nb,som : integer;
Begin
readln(nb);
repeat som := som + sqr( nb mod 10) ; nb:= nb div 10;
until nb=0 ;
write (som);
end.