ROTATION - Quay bánh xe

Tác giả: ladpro98

Ngôn ngữ: Pascal

program rotation;
uses    math;
var     f:array[1..1000] of longint;
        t,i,res,a,b,c:longint;
begin
        readln(t);
        for i:=1 to t-1 do
        begin
                readln(a,b,c);
                f[a]:=c;
        end;
        for i:=1 to t-1 do
        res:=(res+f[i]) mod 2;
        write(res);
end.

Download