flyfeky
bilibili 工控貴族
級別: 論壇先鋒
|
做了下: x:=1; f:=1; WHILE x<=6 DO y:=1; WHILE y<=12 DO z:=1; WHILE z<=30 DO d:=1 ; WHILE d<=37 DO IF x+y+z+d=40 AND 10*x+5*y+2*z+d=100 THEN arr1[f].a:=x; arr1[f].b:=y; arr1[f].c:=z; arr1[f].d:=d; f:=f+1; END_IF d:=d+1; END_WHILE z:=z+1; END_WHILE y:=y+1; END_WHILE x:=x+1; END_WHILE |
|
---|---|---|
|