23 lines
362 B
Text
23 lines
362 B
Text
void local fn DoIt
|
|
int s =1, c = 1, cube = 1, n = 0
|
|
while ( n < 30 )
|
|
int square = s * s
|
|
while ( cube < square )
|
|
c++
|
|
cube = c * c * c
|
|
wend
|
|
if ( cube == square )
|
|
text ,, _zRed
|
|
printf @"%d is square and cube",square
|
|
text
|
|
else
|
|
print square
|
|
n++
|
|
end if
|
|
s++
|
|
wend
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|