Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
Bạn đang xem: Cách viết chương trình tính tổng s=1+2+3+…+n trong pascal

1.
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write("nhap n:=");readln(n);
s:=0;
for i:=1 to n do 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 to 200 do 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 30 do 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.
5. Thiếu dữ kiện
Hãy giúp mọi người biết câu trả lời này thế nào?
star
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
2 vote
GửiHủy
Chưa có nhómTrả lời1011
15849
Cám ơn497
vậy thì mình làm tới câu 4 thôi
Chưa có nhómTrả lời
1011
Điểm15849
Cám ơn497
mà cho mình hỏi bạn học lớp mấy vậy

Chưa có nhómTrả lời
873
Điểm24096
Cám ơn591
8.
Chưa có nhómTrả lời
0
Điểm33
Cám ơn0
mình cx ko bik nx á bạn tại thầy đưa đề vậy í
Chưa có nhómTrả lời
0
Điểm235
Cám ơn0
X^n mà bạn
Chưa có nhómTrả lời
0
Điểm180
Cám ơn0
x mũ n nha
Chưa có nhómTrả lời
0
Điểm40
Cám ơn0
Giải jup câu 5 ik ạ x mũ n á
Chưa có nhómTrả lời
34
Điểm345
Cám ơn9
câu 1 có đúng ko
Đăng nhập để hỏi chi tiết
Chưa có nhómTrả lời
873
Điểm24096
Cám ơn591

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 to 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 to 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 n do
gt:=gt*i;
writeln("n!= ",gt);
readln;
end.
Học tốt!
Hãy giúp mọi người 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ời1081
30484
Cám ơn1589
cau 1 co sai ko ạ
Chưa có nhómTrả lời
6
Điểm139
Cám ơn1
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 muốn hỏi điều gì?
Đặt câu hỏiSự kiện
Đua top nhận quà tháng 12/2021Quay Tiktok - nhận quà chóp
Bạn muốn hỏi điều gì?
Đặt câu hỏiLý do báo cáo vi phạm?
Gửi yêu cầu Hủy

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

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