Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hồng Ánh Nguyễn

Viết chương trình tính tích của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.

namperdubai2
28 tháng 2 2022 lúc 21:25

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.  
Sơn Mai Thanh Hoàng
28 tháng 2 2022 lúc 21:25

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.