Bài 1: Viết chương trình tính và đưa ra màn hình tổng S=1+2+3+ … +N (N nhập vào từ bàn phím)
Bài 2: Viết chương trình tính và đưa ra màn hình tổng S=1+1/2 +1/3 +…+1/N (N nhập vào từ bàn phím)
Bài 3: Viết chương trình tính và đưa ra màn hình tổng S=x+x/2 +/3 +…+x/N (x, N nhập vào từ bàn phím)
(tối nay nộp rôì giúp vs))
Bài 1:
Program Sum;
Uses crt;
Var n, res: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
res := n * (n + 1) div 2;
Write(‘Sum = ‘,res);
Readln
End.
Bài 2:
Program Sum;
Uses crt;
Var n, i: longint;
res: extended;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
res:=0;
For i:=1 to n do
res := res + 1/i;
Write(‘Sum = ‘,res:0:2);
Readln
End.
Bài 3:
Program Sum;
Uses crt;
Var n, x, i: longint;
res: extended;
Begin
Clrscr;
Write(‘Nhap n, x: ‘); Readln(n, x);
res:=0;
For i:=1 to n do
res := res + x/i;
Write(‘Sum = ‘,res:0:2);
Readln
End.
1.
var n,s,i:longint;
begin
write(‘Nhap n: ‘)’ readln(n);
for i:=1 to n do
s:=s+i;
write(‘s= ‘,s);
readln;
end.
2.
var i,n:longint;
s:real;
begin
write(‘Nhap n: ‘)’ readln(n);
for i:=1 to n do
s:=s+1/i;
write(‘s= ‘,s:0:3);
readln;
end.