sử dụng chương trình con để tính tổng các giai thừa của 3 số hạng A,B,C
1 câu trả lời
Program FNG;
Uses crt;
Var a,b,c: byte;
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 a,b,c: '); Readln(a,b,c);
For i:=1 to n do
s:=gt(a)+gt(b)+gt(c);
Write('S = ',s);
Readln
End.
Câu hỏi trong lớp
Xem thêm
