[excel统计总人数]空白单元格输入 =SUMPRODUCT(LEN(A1:A3)-LEN(SUBSTITUTE(A1:A3,",",""))) 我举例是a1--a3 你自己改成你的数据范围 哦,我是按逗号是中文逗号算的 如果是英文逗号 自己改公式中的...+阅读
思路:
∵只需要输出k为,k不确定
∴要用一个高精度数组
∵最后的“0”不一定会输出,而且乘任何数都还是0
∴可以直接用一个变量记录最后的“0”的个数
运算时可直接用一个 for i:=1 to n do 的循环完成阶乘运算,每算一次处理一次末尾的“0”,再删去前面超过k位太多的数(但k位前要保留几位,预防末尾有0删去而前面没有进位,则结果就可能不对了)。
鉴于效率,可以开int64数组,每个变量记录9位(方便直接相乘)
for i:=1 to n do 的循环可以每几位先相乘后,再与原来的k位相乘,以减少高精度运算时的时间消耗。
const
maxk=100;
jin=1000000000;
var
ans:array [1..maxk+2] of int64; {多留18位}
k,n,zero:integer;
time:int64;
i,j:integer;
procedure gjd(x:int64);
{var ...}
begin
{ans各位乘x}
{处理进位(div jin 和 mod jin)}
{去末尾的0}
end;
begin
zero:=0;
readln(n,k);
i:=1;
repeat
time:=1;
while (time*i<=jin) and (i<=n) do begin
time:=time*i;
inc(i);
end;
gjd(time); {进入高精度运算,ans数组 乘 time}
if i>n then break;
until i>n;
{输出结果:}
{判断ans是否有k位,若不足再判断加上zero(末尾0的个数)有没有k位,最后输出。}
end.
{高精度和最后的输出判断就由你自己写啦,总的思路我已经给出了。}
以下为关联文档:
怎么样用excel统计函数计算人数假设你的数据库已经建立好了. ABC两列为姓名,分数,职业 A1,B1为标题 下面开始为数据. 总共有1000行. 在D1输入"分数"这两个字(要与你数据库标题一样) 在D2输入>=70 在E1输入"职业"...
怎么用excel统计总人数分类汇总只能处理简单的数据。 可以用公式。假如第一行是标题,要统计001先生、女士、未填的人数: =sumproduct((a2:a100="001")*(b2:b100="先生")) =sumproduct((a2:a100="001")*(b2:...
在EXCEL里面怎么统计算出各阶段的人口数1.根据身份证号计算年龄 =IF(A2<>"",DATEDIF(TEXT((LEN(A2)=15)*19&MID(A2,7,6+(LEN(A2)=18)*2),"#-00-00"),TODAY(),"y"),) 注意:A2单元格为身份证号,且为文本格式。 2.根据身份证...
pascal统计数字这道题是NOIp 2007的复赛提高组第一题吧? 排序+线性统计的处理即可。 数据规模n在200000因此O(nlogn)排序【即快排或其他高效排序法】可过。数据范围在1,500,000,000<maxlong...
统计数字Pascalvar n,i,m,s : qword; begin repeat readln(n); until (1 s := 0; for i := 1 to n do begin m := i; while m >0 do begin if n mod 10 = 0 then begin s := s + 1; break;...
pascal怎么统计出字符数量如果你的字符全是在一行的话,可以用一个string类型读进来,然后用length函数统计,代码如下(从1.txt读入,输出到屏幕): program 1; var s:string; begin assign(input,'1.txt'); rese...
pascal统计大写英文字母的个数var ch:char;s,j,i:integer; begin read(ch); while ch<>'.' do begin if(ch>='A')and(ch<='Z')then s:=s+1; read(ch); end; readln; writeln(s); end. 话说我就是回答你另...
编程noip2010数字统计用Pascal怎么做var ans,n,m,i:longint; function js(x:longint):longint; var x1:0..9; begin js:=0; while x>0 do begin x1:=x mod 10; if x1=2 then js:=js+1; x:=x div 10; end; end;...
请问如何用pascal编统计素数的程序下面给一个判断素数的函数,其他的自己琢磨琢磨。 function zhisu(n:dword):boolean; var j:dword; findd:boolean; begin if n=1 then zhisu:=false else if (n=2)or(n=3) th...