Viết chương trình tinh và dưa ra màn hình giá trị N! với N là số nguyên dương được nhấp từ bàn phím. Giúp em vs ạ?
2 câu trả lời
Program BTT;
Uses crt;
Var i: longint;
s,n: qword;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=1;
For i:=2 to n do
s:=s*i;
Write(n,'! = ',s);
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.
