RosettaCodeData/Task/Averages-Root-mean-square/Applesoft-BASIC/averages-root-mean-square.basic
2023-07-01 13:44:08 -04: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