Talk:Steady squares: Difference between revisions

Content deleted Content added
 
Line 6: Line 6:
<lang pascal>
<lang pascal>
function CalcSquare(n:LongInt;Pot10:byte);
function CalcSquare(n:LongInt;Pot10:byte);
//pot10 is 10^(count of digits of n)
//pot10 is 10^(count of digits of n -1)
//prepend one digit to n
//prepend one digit to n
var
var