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

Câu vấn đáp được bảo đảm chứa thông tin chính xác và đáng tin cậy, được chứng thực hoặc vấn đáp bởi những chuyên gia, giáo viên số 1 của 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 to n vì 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ị 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 to lớn 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 vị a:=a*i;

writeln("n:=",a);

readln

end.

Xem thêm: Tải Bài Tập Phép Chia Có Dư Lớp 3 Phép Chia Có Số Dư, Phép Chia Có Dư Lớp 3: Ví Dụ, Các Dạng Bài Tập

5. thiếu hụt dữ kiện

Hãy góp mọi người biết câu trả lời này cố kỉnh nào?

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
4 vote
GửiHủy


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

Cám ơn

512

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

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

1010

Cám ơn

512

mà cho doanh nghiệp hỏi bàn sinh hoạt lớp mấy vậy

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

873

Cám ơn

620

8.

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

0

Cám ơn

0

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

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

0

Cám ơn

0

X^n nhưng mà bạn

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

0

Cám ơn

0

x nón n nha

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

0

Cám ơn

0

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

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

33

Cám ơn

9

câu 1 gồm đúng ko

Đăng nhập nhằm hỏi đưa ra 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 lớn 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 to lớn n do

gt:=gt*i;

writeln("n!= ",gt);

readln;

end.

Học tốt!

Hãy giúp mọi bạn biết câu trả lời này thế nào?

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote
GửiHủy
Because no no noTrả lời1080

Cám ơn

1622

cau 1 teo sai ko ạ

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

6

Cám ơn

1

Theo mik đúng r ák

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

Bạn ước ao hỏi điều gì?

Đặt câu hỏi

Sự kiện

Bạn ý muốn hỏi điều gì?

Đặt câu hỏi

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

Gửi yêu ước Hủy

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

Tải ứng dụng

Trụ sở: Tầng 7, Tòa nhà Intracom, trằn Thái Tông, mong Giấy, Hà Nội.

Xem thêm: Em Hiểu Thế Nào Về Tư Tưởng Hồ Chí Minh Là Gì? Nội Dung Tư Tưởng Hồ Chí Minh


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