lesson 2 阅读理解1.pptVIP

noip2008_2 2．procedure foo(a,b,c:integer); begin if ab then foo(c,a,b) else writeln(a,,,b,,,c); end; var a,b,c:integer; begin read(a,b,c); foo(a,b,c); end. 输入：3 1 2 输出：_________________________ noip2009_1 1. var a, b: integer; function work(a, b: integer): integer; begin if a mod b 0 then work := work(b, a mod b) else work := b; end; begin read(a, b); writeln(work(a, b)); end. 输入：20 12 输出：_____ Noip2009_2 2. var a, b: array[0..2] of integer; i, j, tmp: integer; begin for i := 0 to 2 do read(b[i]); for i := 0 to 2 do begin a[i] := 0; for j := 0 to i do begin inc(a[i], b[j]); inc(b[a[i] mod 3], a[j]); end; end; Noip2009_3 3. const c = 2009; var n, p, s, i, j, t: integer; begin read(n, p); s := 0; t := 1; for i := 1 to n do begin t := t * p mod c; for j := 1 to i do s := (s + t) mod c; end; writeln(s); end. 输入：11 2 输出：______ Noip2010_1 1.var a1,a2,a3,x:integer; procedure swap(var a,b:integer); var t:integer; begin t:=a; a:=b; b:=t; end; begin readln(a1,a2,a3); if a1a2 then swap(a1,a2); if a2a3 then swap(a2,a3); if a1a2 then swap(a1,a2); readln(x); if xa2 then if xa1 then writeln(x,‘ ’,a1, ‘ ’, a3, ‘ ’,a3) else writeln(a1,‘ ’,x, ‘ ’, a2, ‘ ’,a3) else if xa3 then writeln(a1,‘ ’,a2, ‘ ’, x, ‘ ’,a3) else writeln(a1,‘ ’,a2, ‘ ’, a3, ‘ ’,x) end. 输入 91 2 20 77 输出：__________ Noip2010_2 2． var n : integer; procedure f2(x, y : integer); forward; procedure f1(x, y : integer); Begin if x n then f2(y, x + y); end; procedure f2(x, y : integer); begin write(x, ’ ’); f1(y, x + y); end; begin readln(n); f1(0, 1); end． 输入：30 输出：____________