14 lines
194 B
Text
14 lines
194 B
Text
Double ari = 1, geo = 0, har = 0
|
|
Short i, n = 10
|
|
|
|
for i = 1 to n
|
|
ari += i
|
|
geo *= i
|
|
har += 1 \ i
|
|
next
|
|
|
|
print "ari:", ari \ n
|
|
print "geo:", geo^( 1 \ n )
|
|
print "har:", n \ har
|
|
|
|
handleevents
|