traduire un algorithme

bonjours! je dois traduire un algorithme mais je ne suis pas très doué
Affecter à K la valeur 0.
Pour I allant de 1 à 10 :
Affecter à N un nombre aléatoire entre 1 et 100.
Si 24 ≤ N ≤ 74
Alors affecter à K la valeur K + 1.
Sinon :
Si 75 ≤ N ≤ 95
Alors affecter à K la valeur K + 2.
Sinon :
Si N ≥ 96
Alors affecter à K la valeur K + 3.
Fin Si
Fin Si
Fin Si
Fin Pour
Afficher K
Fin

Eh ba voilà c'est déjà mieux ! Voilà la traduction littérale de ton code :

Code:

0->K
For(I,1,10
randInt(1,100->N
If 24<=N and 74>=N
K+1->K
If 75<=N and 95>=N
K+2->K
If 96<=N
K+3->K
End
K

-> flèche sto en bas à gauche de ton clavier
<= signe inférieur ou égal, dans 2nd + Math
>= meme principe

Le code peut être grandement optimisé, si tu le souhaites.

Je pense à quelque chose comme ça, mais c'est vrai que c'est moins lisible pour comprendre :

Code:

DelVar KFor(I,1,10
randInt(1,100
K+(24≤Ans)(Ans≤74)+2(75≤Ans)(Ans≤95)+3(96≤Ans->K
End
K