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))

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.

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.