IMO 1960 Problem 01

gistfile1.as

public function solve():void {
  txtResult.text = "";
  var count:int = 1;
  var k:int = 10;
  while (k * 11 < 1000) {
    // Calculate sum of the squares of the digits
    var sumSquares:int = 0;
    var n:int = k * 11;
    while (n > 0) {
      var digit:int = n % 10;
      sumSquares += digit * digit;
      n /= 10;
    }
    // Check
    if (sumSquares == k) {
      txtResult.text += count + ") " + (k * 11) + "\n";
      ++count;
    }
    ++k;
  }
}