Tính N giai thừa bằng vòng lặp While .... Do

[Admin]

Không nói nhiều vào là sút luôn

Code:


Program ITKG_GiaiThua;
Uses Crt;
Var n,i : integer;
    gt : longint;
Begin
Writeln('Nhap n vao ='); Readln(n);
gt := 1; i:=1;
while i <= n do
  Begin
  gt := gt * i;
  i := i + 1;
  end;
writeln(n, "!= ", gt);
readln;
end.