1

Admin 19/01/2022 45

Home/ Môn Học/Tổng hợp/1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím.2.Viết chương trình tính tổng 200 số nguyên đầu tiên.3.Viết ch

1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím.2.Viết chương trình tính tổng 200 số nguyên đầu tiên.3.Viết ch

1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím.

Bạn đang xem: 1

2.Viết chương trình tính tổng 200 số nguyên đầu tiên.3.Viết chương trình tính tích 30 số nguyên đầu tiên.4.Viết chương trình tính n!5.Viết chương trình tính x

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.
Xem thêm: Mua Bán Chó Ngao Tây Tạng Gia Bao Nhieu, Mua Ở Đâu Tại Hà Nội, Tp
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.

thucuc
0
Reply
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!

Nem
0
Reply

Để tìm câu trả lời chính xác các em hãy tham khảo viết chương trình tính tổng s=1+2+3+…+n các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!