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

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ươ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. Bài tập Tính tổng S=1+2+3+..+n

Bài tập cơ bản này ta có thể có nhiều hướng giải quyết khác nhau, như sử dụng vòng lặp for , sử dụng vòng lặp while, …

Đầu vào sẽ là một biến nguyên n và yêu cầu của bài toán là tính tổng các phần tử từ 1 đến n.

2. Lời giải

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

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!