Những câu hỏi liên quan
XTN - GAMING
Xem chi tiết
zero
15 tháng 4 2022 lúc 15:06

.___.

Bình luận (1)
Kim Thoa Le Thi
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:38

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=1;

for (int i=1; i<=n; i++) t=t*i;

cout<<t;

 

return 0;

}

Bình luận (0)
Hồng Ánh Nguyễn
Xem chi tiết
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.  
Bình luận (0)
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.

Bình luận (0)
Trương Đại Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

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.

Bình luận (1)
Nguyễn Văn Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2023 lúc 14:34

#include <bits/stdc++.h>

using namespace std;

long long n,i,s=1;

int main()

{

cin>>n;

for (int i=1; i<=n; i++) 

s=s*i;

cout<<s;

}

Bình luận (0)
Unh hello linh
Xem chi tiết
MY PHẠM THỊ DIÊMx
18 tháng 3 2022 lúc 5:41

var i,s:integer;

begin

s:=0;

for i:=1 to 50 do s:=s+i;

write('Tong:', s);

readln;

end.

Bình luận (7)
Vũ Duy Hoàng
Xem chi tiết
Xyz OLM
24 tháng 5 2021 lúc 17:50

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

Bình luận (0)
 Khách vãng lai đã xóa
Ngọc Trâm
Xem chi tiết
tuan manh
12 tháng 3 2023 lúc 18:22

Bình luận (0)
Trần anh Dũng
Xem chi tiết
Minh Lệ
20 tháng 3 2022 lúc 18:22

Program HOC24;

var i,t: integer;

begin

t:=0;

for i:=1 to 20 do t:=t+i;

write(t);

readln

end.

Bình luận (0)