Rosetta Code:Solve a Task

From Rosetta Code

GW-BASIC

Benford's law 

10 DEF FNBENFORD(N)=LOG(1+1/N)/LOG(10)
20 CLS
30 PRINT "One digit Benford's Law"
40 FOR i = 1 TO 9
50   PRINT i,:PRINT USING "##.######";FNBENFORD(i)
60 NEXT i
70 END
Retrieved from "https://rosettacode.org/wiki/Rosetta_Code:Solve_a_Task?oldid=332362"