A voir également:
- Probleme pascal le sous programme
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- Désinstaller programme windows 10 - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
3 réponses
salut voici mon essay
Debut algorithm somme_carre
i,n : entier
ecrire ("saisie l'entier n ")
lire (n)
pour i de 1 a n faire
répéter
ecrire ("donner l'element" ,i)
lire t1(i)
jusqu'a (t1(i) > 100 et t1(i)<999)
fin pour
pour i de 1 a n faire
t2(i) <-- carré (t(i) mod 100) + carré (t(i) div 100 mod 10) + carré ( t(i) div 10)
fin pour
fin algorithm
Debut algorithm somme_carre
i,n : entier
ecrire ("saisie l'entier n ")
lire (n)
pour i de 1 a n faire
répéter
ecrire ("donner l'element" ,i)
lire t1(i)
jusqu'a (t1(i) > 100 et t1(i)<999)
fin pour
pour i de 1 a n faire
t2(i) <-- carré (t(i) mod 100) + carré (t(i) div 100 mod 10) + carré ( t(i) div 10)
fin pour
fin algorithm