Bài 1: TÌM SỐ. (5,0 điểm)
Tính số chữ số 0 tận cùng của N! = 1 * 2 * 3 * ... * N, với số nguyên dương N10 9 . N nhập từ tệp
TS.INP, kết quả đưa ra tệp TS.OUT gồm một số nguyên là số chữ số 0 tận cùng của N! đã tìm
được.
Ví dụ: N=12 , kết quả đưa ra là 2.
Tên file bài làm: BAI1.PAS
Dữ liệu vào: Cho trong file văn bản TS.INP gồm 1 số nguyên dương N.
Dữ liệu ra: Ghi ra file văn bản TS.OUT gồm 1 số nguyên là số chữ số 0 tận cùng của N!.
Ví dụ:
TS.INP
12
TS.OUT
2
var n,d,i,j: int64; begin assign(input,'TS.INP'); reset(input); assign(output,'TS.OUT'); rewrite(output); readln(n); d:=0; for j:=5 to n do begin i:=j; while i mod 5 = 0 do begin d:=d+1; i:=i div 5; end; end; write(d); end.