K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
Bảng xếp hạng
Tất cả
Toán
Vật lý
Hóa học
Sinh học
Ngữ văn
Tiếng anh
Lịch sử
Địa lý
Tin học
Công nghệ
Giáo dục công dân
Âm nhạc
Mỹ thuật
Tiếng anh thí điểm
Lịch sử và Địa lý
Thể dục
Khoa học
Tự nhiên và xã hội
Đạo đức
Thủ công
Quốc phòng an ninh
Tiếng việt
Khoa học tự nhiên
- Tuần
- Tháng
- Năm
-
DHĐỗ Hoàn VIP60 GP
-
50 GP
-
41 GP
-
26 GP
-
119 GP
-
VN18 GP
-
14 GP
-
N12 GP
-
H10 GP
-
8 GP
tham khảo
Đề bài: Viết chương trình tính n! với n là số tự nhiên không âm nhập vào từ bàn phím Để làm được bài này, trước tiên các bạn cần nhớ lại công thức tính n! đã. Theo định nghĩa giai thừa ta có: 0! = 1 n! = 1.2.3…n Vậy là ta có công thức rồi. Nhìn vào công thức ta thấy với n = 0 thì dễ rồi, nếu n > 0 thì nó là tích các số từ 1 đến n.TK
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.