Code: Select all
var number : int := 1
var sum : int
var sum2 : int
sum := number + number
sum2 := number + sum
put number,", ",number, ", " ..
put sum, ", " ..
put sum2, ", " ..
for i : 1 .. 20
number := sum + sum2
sum2 := sum2 + sum2
put number , ", " ..
end for[code]
[color=#888888][size=85]Archived topic from Iceteks, old topic ID:4184, old post ID:34055[/size][/color]