*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
sdfvrgh6yhjyu
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.