305 B
305 B
Lexique: somme_eur: un réel somme_francs: un réel taux_francs_vers_eur: constante réèle := 6.55957 Algorithme: Ecrire("Saisir une somme en francs") Lire(somme_francs) somme_eur <- somme_francs / taux_francs_vers_eur Ecrire(somme_eur, "€ font ", somme_francs, " francs")