18 lines
245 B
Text
18 lines
245 B
Text
func iscube x .
|
|
for i = 1 to x
|
|
h = i * i * i
|
|
if h = x
|
|
return 1
|
|
elif h > x
|
|
return 0
|
|
.
|
|
.
|
|
.
|
|
while cnt < 30
|
|
sq += 1
|
|
sq2 = sq * sq
|
|
if iscube sq2 = 0
|
|
write sq2 & " "
|
|
cnt += 1
|
|
.
|
|
.
|