Pascal 2013解题报告和心得文档.docxVIP

计数问题（count.pas/c/cpp）Time Limit:1000Ms Memory Limit:131072K算法一这是一题送分题。初看这道题，你想到了什么？对了，NOIp2010 普及组《数字统计》。几乎就是一模一样的题目。一看数据范围，n 不是很大，直接上线性复杂度的扫描算法。算法具体就是对于每一个数字转成字符串后扫描字符串，统计数字个数即可。PASCAL 代码见此。时间效率O(N)空间效率O(1)算法二如果对时间效率实在不放心，也可以用数学方法来完成。但相对复杂了一点。通常NOIp普及组的第一题用不着太高科技的算法。时间效率O(1)空间效率O(1)Ps:旁边的用快排。。。。。代码_算法一var x,i,j,k,l,m,n,Ans:Longint;s:Ansistring;BeginAssign(input,count.in);Assign(output,count.out);Reset(input);rewrite(output);Readln(n,x);For i:=1 to N doBeginstr(i,s);For j:=1 to Length(s) doIf ord(s[j])-48=x then Inc(Ans);End;writeln(Ans);Close(input);Close(output);End.表达式求值（expr.pas/c/cpp）Time