Bài 4: Máy tính và phần mềm máy tính

Tố Trinh

*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

Nguyễn Lê Phước Thịnh
16 tháng 1 2020 lúc 21:34

Ý tưởng: Tính n!. Xong rồi đổi kết quả đó ra một xâu(hay còn gọi là một chuỗi). Sau đó đếm số 0 như bình thường

uses crt;
var n,i,d,dem:integer;
s:int64;
st:string;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
str(s,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='0' then inc(dem);
writeln('so chu so 0 tan cung cua ',n,'!',' la: ',dem);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Hoàng Thành Công
Xem chi tiết
Phương Hiền
Xem chi tiết
Phong Tuấn Đỗ
Xem chi tiết
hoa nguyen
Xem chi tiết
Nguyễn Sáng
Xem chi tiết
Trần Minh Ngọc
Xem chi tiết
Nguyễn Thị Ngọc Minh
Xem chi tiết
Nỗi Đau Trong Mơ
Xem chi tiết
Lê Ngọc Anh Thư
Xem chi tiết