《阅读程序-简单运算》由会员分享，可在线阅读，更多相关《阅读程序-简单运算（4页珍藏版）》请在金锄头文库上搜索。
1、NOIP2003NOIP2003 阅读程序阅读程序1. program Program1;var a, b, c, d, sum : longint;beginread ( a, b, c, d );a := a mod 23; b := b mod 28; c := c mod 33;sum := a * 5544 + b * 14421 + c * 1288 - d;sum := sum + 21252; sum := sum mod 21252;if (sum = 0 ) then sum := 21252;writeln (sum);end. 输入：283 102 23 320 输出_
2、8910_2. program Program2;constu : array1.4 of integer = (0,5,3,1);v : array1.4 of integer = (0,7,6,5);var a, b, c, d, e, f, x, y, z: integer;beginread ( a, b, c, d, e, f );z := f + e + d + (c+3) div 4; y := 5 * d + uc mod 4;if (b y) then beginz := z + (b - y + 8) div 9;x := (b - y + 8) div 9 * 9 -(b
3、 - y) * 4 + 11 * e + vc mod 4;endelse x := (y - b) * 4 + 11 * e + vc mod 4;if (a x) then z := z + (a - x + 35) div 36;writeln(z)end. 输入： 4 7 9 20 56 47 输出_126_NOIP2004NOIP2004 阅读程序阅读程序1 program progam1;var u: array 0.3 of integer; a, b, c, x, y, z: integer;begin read(u0, u1, u2, u3); a := u0 + u1 +
4、u2 + u3 - 5; b := u0 * (u1 - u2 div u3 + 8); c := u0 * u1 div u2 * u3; x := (a + b + 2) * 3 - u(c + 3) mod 4; y := (c * 100 - 13) div a div (ub mod 3 * 5); if(x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2; z := (a + b + c x - y) * 2;writeln(x + y - z);end. 输入：2 5 7 4 输出： 263 。NOIP2005NOIP2005
5、阅读程序阅读程序1 vara, b, c, p, q : integer;r : array0.2 of integer; beginread(a, b, c);p := a div b div c;q := b - c + a + p;r0 := a * p div q * q;r1 := r0 * (r0 - 300);if (3 * q - p mod 3 10) theny:= y+(v2*100-v3) div (uu0 mod 3 * 5)elsey:= y+20+(v2*100-v3) div (uv0 mod 3 * 5);writeln (x, , y);end. （* 注：
6、本例中，给定的输入数据可以避免分母为 0 或下标越界。）输入：9 3 9 4输出： -13,57 NOIP2007NOIP2007 阅读程序阅读程序1 program s401; var p,q:array0.5 of integer;i,x,y:integer;beginy:=20;for i:=0 to 4 do read(pi);readln;q0:=(p0+p1)+(p2+p3+p4) div 7;q1:=p0+p1 div (p2+p3) div p4);q2:=p0*p1 div p2;q3:=q0*q1;q4:=q1+q2+q3;x:=(q0+q4+2)-p(q3+3) mod
7、4;if (x10) theny:=y+(q1*100-q3) div (pp4 mod 3*5)elsey:=y+20+(q2*100-q3) div (pp4 mod 3*5);writeln(x,y);end./*注：本例中，给定的输入数据可以避免分母为 0 或数组元素下标越界。*/输入：6 6 5 5 3输出：_129,43_NOIP2008NOIP2008 阅读程序阅读程序1 vari,a,b,c,d:integer;f:array0.3 of integer; beginfor i:=0 to 3 do read(fi);a:=f0+f1+f2+f3;a:=a div f0;b:=f0+f2+f3;c:=(b*f1+a) div f2;d:=f(b div c) mod 4;if (f(a+b+c+d) mod 4f2) thenbegina:=a+b; writeln(a)end else beginc:=c+d;writeln(c); end; end.输入： 9 19 29 39输出：_69_
