cho số n bất kỳ được nhập vào từ bàn phím . Viết giải thuật toán tính n giai thừa
2 câu trả lời
uses crt;
var n: longint;
Function Giai_Thua(n:longint):longint;
Var GT:Longint;
begin
GT:=1;
while n > 0 do
begin
GT:=GT * n;
n:=n-1;
end;
Giai_thua:=GT;
end;
begin
clrscr;
write('Nhap n: '); readln(n);
write(n,'!=',Giai_thua(n));
readln
end.
uses crt;
var i,n,kq:longint;
begin
clrscr;
kq:=1;
write('Nhap n: '); readln(n);
for i:=1 to n do
kq:=kq*i;
write('Ket qua la: ',kq);
readln;
end.
Câu hỏi trong lớp
Xem thêm
