欧拉回路constmaxn=100;var g:array[1..maxn,1..maxn] of longint; du:array[1..maxn] of longint; circuit:array[1..maxn] of longint; n,circuitpos,i,j,start,oddnumber:longint;procedure setIO;begin
assign(input,'one.in');
reset(input);
assign(output,'one.out');
rewrite(output);end;p... |