請問一下用pascal編求N!的末尾有多少個連續的0該怎麼編

時間 2022-07-01 02:15:08

1樓:

因為10=2*5,所以末尾有多少個連續的0要看n!分解後質因數2和5的個數,而2的個數增長速度比5快,只須看n!分解後質因數5的個數就有多少末尾連續的0

程式1:

var n,i,a,s:longint;

begin

read(n);

for i:=1 to n do

begin

a:=i;

while a mod 5=0 do

begin

a:=a div 5;inc(s);

end;

end;

writeln(s);

end.

程式2:

var n,s:int64;

begin

read(n);

while n>0 do

begin

n:=n div 5;s:=s+n;

end;

writeln(s);

end.

2樓:匿名使用者

varn:int64;

m,k:longint;

begin

readln(n);

m:=5; k:=0;

while n div m > 0 do

begin

k:=k+(n div m);

m:=m*5;

end;

writeln(k);

end.

這種東西懶得用高精了

3樓:匿名使用者

判斷所有的因子中有多少個2,5,因為只有這兩個基本組成元素能構成10

4樓:匿名使用者

var n:longint;

sum:qword;

begin

readln(n);

while n<>0 do

begin

n:=n div 5;

sum:=sum+n;

end;

writeln(sum);

end.

請問一下用日語怎麼翻譯,請問一下用日語怎麼翻譯? 20

小美日語課堂 那個,請問一下,用日語怎麼說?在日本旅遊,想問路的時候,我們可以說 1 一種 秦 漢 時代 角抵 南北朝 南宋期 相撲 名前 付 唐 時代 日本 伝 今 日本 國技 2 相撲 體重 増 通常 食 寢 方法 身體 太 日常 食事 料理 食 特殊 食事 牛肉 魚肉 豆食品 野菜 材料 大 ...

2的n次方等於3求n(把計算過程截圖一下,那樣比較清楚,謝

2的n次方等於3 n log2 3 即n為以2為底3的對數 佐伊 這個就是算lg2和lg3的方法,log 2 3 lg3 lg2,記住lg2 0.3010 lg3 0.4771 lg5 0.6990 lg7 0.8451 也可以,要是要算只能用下列方法 只能給出近似解 只要你會手算開平方根就行 令a...

求己二酸裝置N2O減排的案例?介紹一下N2O

我了解到,在中國石油和化工勘察審計協會的2008年度化工行業優秀工程設計獎評審結果中,就有 中國神馬集團 己二酸裝置n2o減排專案 該專案由惠生工程設計。中國神馬集團 為了處理己二酸裝置尾氣中的氮氧化物,減少溫室氣體排放量,同時利用 京都議定書 確定的清潔發展機制確定的 排放權 為公司帶來一定的收益...