Problem9

ピタゴラスの三つ組(ピタゴラスの定理を満たす整数)とはa

Haskell

main=print $ head [a*b*(1000-a-b)|a<-[1..(floor $ 1000/3)],b<-[a..1000],a^2+b^2==(1000-a-b)^2]

C

#include<stdio.h>
int main(void){
  int a,b,c;
  for(a=1;a<1000/3;a++){
    for(b=a;b<=1000;b++){
      c=1000-a-b;
      if(a*a+b*b==c*c){
	printf("%d\n",a*b*c);
	return;
      }
    }
  }
}

31875000