suites algorithme

Selon vous, est-ce que mon algorithme est bon ?
Le but est d'afficher mon n
Le but est d'afficher mon n
- Code: Select all
Prgm
Func
Local,n,u
n:=0
u:=400
while>374
n:=n+1
u:=0.985u
EndWhile
Return n
End prgm