Program ex401; var u, v : array[0..3] of integer; i, x, y : integer; begin x := 10; y := 10; for i:=0 to 3 do read(u[i]); v[0] := (u[0] + u[1] + u[2] + u[3]) div 7; v[1] := u[0] div ((u[1] - u[2]) div u[3]); v[2] := u[0] * u[1] div u[2] * u[3]; v[3] := v[0] * v[1]; x := (v[0] + v[1] + 2) - u[(v[3] + 3) mod 4]; if (x > 10) then y := y + (v[2] * 100 - v[3]) div (u[u[0] mod 3] * 5) else y := y + 20 + (v[2] * 100 - v[3]) div (u[v[0] mod 3] * 5); writeln (x, ',', y); end. {*注:本例中,给定的输入数据可以避免分母为0或下标越界。 )输入:9 3 9 4
输出:1