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
Câu hỏi Lớp 8
Bạn muốn hỏi điều gì?
Đỗ 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.