Viết chương trình tính tổng

Câu trả lời được tuyệt đối đựng lên tiếng chính xác với đáng tin cậy, được chứng thực hoặc vấn đáp bởi các chuyên gia, thầy giáo số 1 của Cửa Hàng chúng tôi.

You watching: Viết chương trình tính tổng


*

1.

program ct;

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=1 to lớn 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 do t:=t+i;

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

readln

over.

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

kết thúc.

4.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 lớn a vì chưng a:=a*i;

writeln("n:=",a);

readln

over.

See more: Tải Microsoft Project 2016 Full Thành Công 1000%, Download Microsoft Project 2016 Full Crack

5. Thiếu dữ kiện


Hãy góp phần đông fan biết câu vấn đáp này cầm cố nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
2 vote
GửiHủy


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

Điểm

15859

Cám ơn

495


vậy thì bản thân có tác dụng tới câu 4 thôi




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

1011

Điểm

15859

Cám ơn

495


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


*

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

874

Điểm

24061

Cám ơn

585


8.


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

0

Điểm

33

Cám ơn

0


mình cx ko bik nx á bạn trên thầy gửi đề vậy í


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

0

Điểm

235

Cám ơn

0


X^n nhưng bạn


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

0

Điểm

180

Cám ơn

0


x mũ n nha


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

0

Điểm

40

Cám ơn

0


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


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

32

Điểm

320

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

874

Điểm

24061

Cám ơn

585


*

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 lớn 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 khổng lồ 200 do

S:=S+i;

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

readln;

kết thúc.

3)

program ct;

uses crt;

var i,n:integer;

T:longint;

begin clrscr;

T:=1;

for i:=1 to lớn 30 do

T:=T*i;

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

readln;

kết thúc.

4)

program ct;

uses crt;

var i,n:integer;

gt:longint;

begin clrscr;

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln("n!= ",gt);

readln;

over.

Học tốt!


Hãy giúp gần như fan biết câu vấn đáp này nạm nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote

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

Điểm

30489

Cám ơn

1581


cau 1 teo không nên ko ạ


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

6

Điểm

37

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ẬPhường. SGK TIN 8 - TẠI ĐÂY

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

Đặt câu hỏi

Sự kiện


Đua top dìm quà mon 9/2021

quý khách hàng mong hỏi điều gì?

Đặt câu hỏi

Lý vị report vi phạm?


Gửi những hiểu biết Hủy


*

Cơ quan tiền công ty quản: Công ty Cổ phần Công nghệ giáo dục và đào tạo Thành Phát


Tải ứng dụng


*
Trụ sở: Tầng 7, Tòa nhà Intracom, Trần Thái Tông, Cầu Giấy, thủ đô hà nội.

See more: Hướng Dẫn Tải Và Cài Đặt Call Of Duty 2 For Windows, Call Of Duty 2


Giấy phép cấu hình thiết lập mạng xã hội bên trên mạng số 331/GP-BTTTT do Bộ Thông tin cùng Truyền thông.

Chuyên mục: Chia sẻ