333 B
333 B
Lexique : sommeFRF : un réel CONVERTION_FRF_EUR : constante réelle := 6.55957 sommeEUR : un réel Algorithme : Début Ecrire("Saisir la somme en francs") Lire(sommeFRF)
sommeEUR <- sommeFRF / CONVERTION_FRF_EUR
Ecrire(sommeFRF, " francs français font : ", sommeEUR, "€")
Fin