Viết chương trình pascal tính n! (n<9) 23/07/2021 Bởi Gabriella Viết chương trình pascal tính n! (n<9)
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! Bình luận
đây bạn
Đã test
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!