Quảng cáo
1 câu trả lời 617
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45552
-
Hỏi từ APP VIETJACK28478
-
Đã trả lời bởi chuyên gia
28474
Gửi báo cáo thành công!
