10 lines
311 B
Plaintext
10 lines
311 B
Plaintext
1* FIZZBUZZ en L.S.E.
|
|
10 CHAINE FB
|
|
20 FAIRE 45 POUR I_1 JUSQUA 100
|
|
30 FB_SI &MOD(I,3)=0 ALORS SI &MOD(I,5)=0 ALORS 'FIZZBUZZ' SINON 'FIZZ' SINON SI &MOD(I,5)=0 ALORS 'BUZZ' SINON ''
|
|
40 AFFICHER[U,/] SI FB='' ALORS I SINON FB
|
|
45*FIN BOUCLE
|
|
50 TERMINER
|
|
100 PROCEDURE &MOD(A,B) LOCAL A,B
|
|
110 RESULTAT A-B*ENT(A/B)
|