*BÀI TẬP PASCAL: N ( N giai thừa ) được tính bằng công thức sau: N!= 1.2.3...N. Cho trước 1 số nguyên dương N (1≤N≤100.000). Yêu cầu: Tìm số chữ số 0 tận cùng của N! Dữ liệu vào: Nhập số nguyên dương N từ bàn phím. Kết quả: Thông báo kết quả tính được ra màn hình MN GIÚP MÌNH VS MÌNH ĐANG CẦN GẤP
1 câu trả lời
uses crt;
var i,n,kq:longint;
s:string;
begin
clrscr;
kq:=1;
write('Nhap n: '); readln(n);
for i:=1 to n do
kq:=kq*i;
str(kq,s);
for i:= length(s) downto 1 do
if s[i]='0' then
begin
write('Vi tri so 0: ',i);
break;
end;
readln;
end.