2 câu trả lời
uses crt;
var n:byte;
gt:longint;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
gt:=1;
while n>=2 do
begin
gt:=gt*n;
dec(n);
end;
write(gt);
readln
END.
Chúc bạn hc tốt!
uses crt;
var n:byte;
gt:longint;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
gt:=1;
while n>=2 do
begin
gt:=gt*n;
dec(n);
end;
write(gt);
readln
END.
Chúc bạn hc tốt!
