Viết chương trình tính tổng s = 1+2+...+n

  -  

Câu trả lời được xác thực chứa thông tin chính xác và xứng đáng tin cậy, được xác thực hoặc vấn đáp bởi những chuyên gia, giáo viên hàng đầu của bọn chúng tôi.

Bạn đang xem: Viết chương trình tính tổng s = 1+2+...+n


*

1.

program ct;

uses crt;

var s,i,n:integer;

begin

clrscr;

write("nhap n:=");readln(n);

s:=0;

for i:=1 lớn n bởi s:=s+i;

writeln("tong la:",s);

readln

end.

2.

program ct;

uses crt;

var t,n,i:integer;

begin

clrscr;

t:=0;

for i:=1 lớn 200 vì chưng t:=t+i;

writeln("tong cua 200 so nguyen dau tien la:",t);

readln

end.

3.

program ct;

uses crt;

var tich,n,i:integer;

begin

clrscr;

tich:=1;

for i:=1 khổng lồ 30 vì tich:=tich*i;

writeln("tich cua 30 so nguyen dau tien la:",tich);

readln

end.

4.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 to a do a:=a*i;

writeln("n:=",a);

readln

end.

Xem thêm: Các Cách Buộc Dây Thừng - Một Số Cách Thắt Nút Dây Cực Hay Ai Cũng Nên Biết

5. thiếu thốn dữ kiện


Hãy giúp mọi người biết câu vấn đáp này cầm nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
4 vote
GửiHủy


Chưa có nhómTrả lời1010

Cảm ơn

515


vậy thì mình làm cho tới câu 4 thôi




Chưa tất cả nhómTrả lời

1010

Cảm ơn

515


mà cho khách hàng hỏi bạn làm việc lớp mấy vậy


*

Chưa bao gồm nhómTrả lời

873

Cảm ơn

620


8.


Chưa gồm nhómTrả lời

0

Cảm ơn

0


mình cx ko bik nx á các bạn tại thầy đưa đề vậy í


Chưa tất cả nhómTrả lời

0

Cảm ơn

0


X^n mà bạn


Chưa tất cả nhómTrả lời

0

Cảm ơn

0


x mũ n nha


Chưa tất cả nhómTrả lời

0

Cảm ơn

0


Giải jup câu 5 ik ạ x mũ n á


Chưa tất cả nhómTrả lời

33

Cảm ơn

9


câu 1 có đúng ko


Đăng nhập để hỏi chi tiết
Chưa bao gồm nhómTrả lời

873

Cảm ơn

620


*

1)

program ct;

uses crt;

var i,n:integer;

S:longint;

begin clrscr;

writeln("Nhap so n: "); readln(n);

S:=0;

for i:=1 to n do

S:=S+i;

writeln("Tong S la: ",S);

readln;

end.

2)

program ct;

uses crt;

var i,n:integer;

S:longint;

begin clrscr;

S:=0;

for i:=1 lớn 200 do

S:=S+i;

writeln("Tong 200 so nguyen dau tien la: ",S);

readln;

end.

3)

program ct;

uses crt;

var i,n:integer;

T:longint;

begin clrscr;

T:=1;

for i:=1 khổng lồ 30 do

T:=T*i;

writeln("Tich 30 so tu nhien dau tien la: ",S);

readln;

end.

4)

program ct;

uses crt;

var i,n:integer;

gt:longint;

begin clrscr;

gt:=1;

for i:=1 khổng lồ n do

gt:=gt*i;

writeln("n!= ",gt);

readln;

end.

Học tốt!


Hãy góp mọi fan biết câu trả lời này nuốm nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote

GửiHủy
Because no no noTrả lời1080

Cảm ơn

1624


cau 1 co sai ko ạ


Chưa có nhómTrả lời

6

Cảm ơn

1


Theo mik đúng r ák


Đăng nhập để hỏi chi tiết
XEM GIẢI BÀI TẬP SGK TIN 8 - TẠI ĐÂY

Bạn mong hỏi điều gì?

Đặt câu hỏi

Sự kiện


Bạn hy vọng hỏi điều gì?

Đặt câu hỏi

Lý do báo cáo vi phạm?


Gửi yêu mong Hủy


*

Cơ quan công ty quản: doanh nghiệp Cổ phần technology Giáo dục Thành Phát


Tải ứng dụng


*
Trụ sở: Tầng 7, Tòa công ty Intracom, nai lưng Thái Tông, ước Giấy, Hà Nội.

Xem thêm: Tìm Nguyên Hàm E^X^2 - Tìm Nguyên Hàm Của Hàm Số F(X)=Xe^(X^2+1)


Giấy phép tùy chỉnh mạng buôn bản hội trên mạng số 331/GP-BTTTT vày Bộ thông tin và Truyền thông.