6 lines
133 B
Text
6 lines
133 B
Text
write( sum{A.value, 1, 100, 1.0/A.value} )
|
|
...
|
|
procedure sum(X)
|
|
...
|
|
every @X[1] := @X[2] to @X[3] do
|
|
temp +:= @^X[4]
|