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