阅读并程序写结果专项练习.pdfVIP

阅读程序写结果专项练习 百度Pascal 吧公开培训教材 阅读程序写结果专项练习 1. NOIP2012 普及组 var a,b,c,d,e,ans: integer; begin readln(a,b,c); d:=a+b; e:=b+c; ans:=d+e; writeln(ans); end． 输入：1 2 5 输出：______________ 2.NOIP2009 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 输出：_____________ 3.NOIP2008 普及组 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 第1 页，共6 页 阅读程序写结果专项练习 百度Pascal 吧公开培训教材 read(a,b,c); foo(a,b,c); end. 输入：3 1 2 输出：_________________________ 4.NOIP2013 提高组 var a, b, u, v, i, num : integer; begin readln(a, b, u, v); num := 0; for i := a to b do begin if (i mod u = 0) or (i mod v = 0) then inc(num); end; writeln(num); end. 输入：1 1000 10 15 输出：_____________________ 5.NOIP2012 提高组 var n,i,temp,sum:integer; a :array[1..100] of integer; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n-1 do if a[i]a[i+1] then begin temp := a[i]; a[i] := a[i+1]; a[i+1] := temp; end; for i:=n downto 2 do if a[i]a[i-1] then begin temp := a[i]; a[i] := a[i-1]; a[i-1] := temp; end; sum := 0; for i:=2 to n-1 do 第2 页，共6 页 阅读程序写结果专项练习 百度Pascal 吧公开培训教材 inc(sum,a[i]); writeln(sum div (n-2)); end. 输入： 8 40 70 50 70 20 40 10 30 输出：______________ 6.NOIP2009 普及组 var a: string;