viết chương trình tính tổng giai thừa các chữ số của n và đếm tổng có bao nhiêu chữ số
Mình đang tìm kiếm một người hùng có thể cứu mình khỏi tình trạng này bằng cách trả lời câu hỏi của mình. Ai đó lên tiếng nhé!
Các câu trả lời
Câu hỏi Tin học Lớp 8
- Với máy tính thế hệ thứ nhất, giao tiếp người – máy tính thực hiện bằng phương tiện...
- Câu 11: Kiểu dữ liệu của biến đếm trong lệnh lặp For – do: A. Cùng kiểu với...
- Theo em, tại sao có thể nói sự phát triển máy tính đã đem đến những thay đổi...
- Cho mik hoi bai nay lam sao v? mik cam on nhieu a Tạo chương trình yêu cầu bạn Bear giải quyết bài...
- Nêu được một số tình huống thực tế cần sử dụng các chức năng (địa chỉ tương ứn, địa chỉ...
- Điều kiện trong câu lệnh lặp với số lần chưa biết trước thường là: A. Phép so sánh B....
- Em hãy nêu tập hợp giá trị cùng các phép toán của các kiểu dữ...
- Một chương trình Pascal, phần nào bắt buộc phải có: A. Phần khai báo B. Phần thân C. Cả A và B D....
Câu hỏi Lớp 8
- Qua hai bài thơ " Đập đá ở Côn Lôn " và " Vào nhà ngục Quảng Đông cảm tác " em hiểu thêm gì về Phan Bội Châu và Phan...
- sưu tầm một số câu ca giao ,tục ngữ ,danh ngôn nói về tôn trọng lẽ phải
- XIV.Use the given suggestions to complete sentences. 1,Instead /reuse/plastic bags/we/use/cloth bags. 2...
- Lấy mỗi cấu trúc 3 ví dụ S + be + adj + enough ( for sb ) to V S + V+ adv + enough ( for sb )...
- Một hợp chất X của S và O có tỉ khối đối với không khí là 2,207 a) Tính...
- câu 8. phân tử khối của niken tetracacbonyl là 171. Biết phân tử của chất này có 1Ni, 4C, 4O. Tính nguyên tử khối của...
- Lúc 7 giờ 20 phút anh Hà đi xe máy từ Hải Phòng lên Hà Nội với vận tốc...
- qua bài' tức cảnh pác pó ' em rút ra bài học j cho bản thân trước vẻ đẹp trong cách sống của Bác Hồ
Bạn muốn hỏi điều gì?
Đặt câu hỏix
- ²
- ³
- √
- ∛
- ·
- ×
- ÷
- ±
- ≈
- ≤
- ≥
- ≡
- ⇒
- ⇔
- ∈
- ∉
- ∧
- ∨
- ∞
- Δ
- π
- Ф
- ω
- ↑
- ↓
- ∵
- ∴
- ↔
- →
- ←
- ⇵
- ⇅
- ⇄
- ⇆
- ∫
- ∑
- ⊂
- ⊃
- ⊆
- ⊇
- ⊄
- ⊅
- ∀
- ∠
- ∡
- ⊥
- ∪
- ∩
- ∅
- ¬
- ⊕
- ║
- ∦
- ∝
- ㏒
- ㏑
Đỗ Bảo Hạnh
program TinhTongGiaiThua;
uses crt;
var
n, num, sum, digitCount: integer;
function GiaiThua(x: integer): integer;
var
i, fact: integer;
begin
fact := 1;
for i := 1 to x do
begin
fact := fact * i;
end;
GiaiThua := fact;
end;
begin
clrscr;
write('Nhap so n: ');
readln(n);
sum := 0;
digitCount := 0;
while n > 0 do
begin
num := n mod 10;
sum := sum + GiaiThua(num);
digitCount := digitCount + 1;
n := n div 10;
end;
writeln('Tong giai thua cac chu so cua n la: ', sum);
writeln('Tong so chu so cua n la: ', digitCount);
readln;
end.