RosettaCodeData/Task/Averages-Root-mean-square/BASIC/averages-root-mean-square-2.basic
2014-01-17 05:34:36 +00:00

6 lines
93 B
Text

10 N = 10
20 FOR I = 1 TO N
30 S = S + I * I
40 NEXT
50 X = SQR (S / N)
60 PRINT X