朝日新聞2006年4月14日パズル横丁解答

プログラムの実行結果は以下の通り。

Find,N:24

プログラムのソースは以下の通り。

#include "puzutl.h"

int main( int argc, cstring argv[])
{
  for( int p=3; p< 100; p++) {
    int         n = 0;
    for( int i=3; i<= p; i++) {
      if( (p%i) == 0) n += p/i;
    }
    if( p == n) ps( "Find,N:%d\n", p);
  }
  return    0;
}