Question

Cho một số nguyên n. Hãy đếm xem trong kết quả của số n! (n giai thừa) có bao nhiêu chữ số 0 liên tiếp tính từ hàng đơn vị (hay bao nhiêu số 0 liên tiếp bên phải). Dữ liệu nhập: - Là số nguyên n (1 ≤ n ≤ 1.000) Dữ liệu xuất: - Là số lượng chữ số 0 liên tiếp tính từ hàng đơn vị của n!

Answer 1

uses crt;

var n,i,x,d,dem:longint;   

s:real;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do

  s:=s*i;

str(s:0:0,st);

d:=length(st);

dem:=0;

for i:=d downto 1 do

  if st[i]='0' then inc(dem);

writeln(dem);

readln;

end.