NOIP全国青少信息学奥赛.pptVIP

第十一届全国青少年信息学奥赛 2005年普及组初赛（pascal）解题报告 （阅读程序、完善程序） 阅读程序第一题 vara, b : integer;beginread(a);b := (a * (a * a)) + 1;if b mod 3 = 0 then b := b div 3;if b mod 5 = 0 then b := b div 5;if b mod 7 = 0 then b := b div 7;if b mod 9 = 0 then b := b div 9;if b mod 11 = 0 then b := b div 11;if b mod 13 = 0 then b := b div 13;if b mod 15 = 0 then b := b div 15;writeln((100 * a - b) div 2);end.输入：10输出： 阅读程序第二题 varstr : string;i : integer;beginstr := Today-is-terrible!;for i := 7 to 11 doif str[i] = - then str[i - 1] := x;for i := 13 downto 1 doif str[i] = t then str[i + 1] := e