Viết chương trình con tính N!= 1.2.3...N ( mng giúp em với em đang cần gấp lắm ạ)
2 câu trả lời
Program BTH;
uses crt;
var i,n:longint;
s:int64;
Begin
clrscr;
write('Nhap n: ');readln(n);
s:=1;
For i:=1 to n do s:=s*i;
writeln('Tich day so tren la: ',s);
readln;
end.
Program Hotboy ;
Uses crt;
Var n,i ,s : Real;
Begin
Clrscr;
S:=1;
Write('nhap so n');
Readln(n);
For i:= 1 to n do
S:=S*i;
Writeln('N!',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm
