sử dụng chương trình con để tính tổng giai thừa của n số hạng
1 câu trả lời
Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
n,i: longint;
s: qword;
Function gt(a: byte): qword;
Var i: longint;
Begin
gt:=1;
For i:=1 to a do gt:=gt*i;
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
s:=s+Gt(i);
End;
Write('S = ',s);
Readln
End.
Câu hỏi trong lớp
Xem thêm
