poj 1067 코드

원래 제목:http://poj.org/problem?id=1067 유도 공식 이 너무 복잡 하기 때문에, 여기 에는 미관 을 위해 압력 을 가 하지 않 는 다 는 것 을 표시 하지 않 는 다.
var a,b,n,i:longint;
begin 
    while not eof do begin 
        readln(a,b);
        n:=abs(a-b);
        if a>b then a:=b;
        if a=trunc((n*(sqrt(5)+1)/2))then writeln('0')
        else  writeln('1');
    end;
end.

좋은 웹페이지 즐겨찾기