13 lines
237 B
Text
13 lines
237 B
Text
|
class Babbage {
|
||
|
|
function : Main(args : String[]) ~ Nil {
|
||
|
|
cur := 0;
|
||
|
|
do {
|
||
|
|
cur++;
|
||
|
|
}
|
||
|
|
while(cur * cur % 1000000 <> 269696);
|
||
|
|
|
||
|
|
cur_sqr := cur * cur;
|
||
|
|
"The square of {$cur} is {$cur_sqr}!"->PrintLine();
|
||
|
|
}
|
||
|
|
}
|