Câu 1

uses crt;
var m,n,kq,i: longint;
begin
        write('Nhap n: '); readln(n);
        write('Nhap m: '); readln(m);
        for i:=n to m do
                kq:=kq+i;
        clrscr;
        write('Tong n den m la: ',kq);
        readln;
end.

Câu 2

uses crt;
var n,i: longint;
    kq:real;
begin
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                kq:=kq+1/i;
        clrscr;
        write('Tong la: ',kq:0:4);
        readln;
end.

Câu 3:

Input: n

Thuật toán:

Cho một vòng lặp chạy i từ 1 đến n

Tăng biến kết quả 1/(i(i+2))

Output: xuất biến kết quả

1/

Program BTH;

uses crt;
var a,b,c,d: longint;
begin

clrscr;

Write('Nhap n: '); readln(a);

Write('Nhap m: '); readln(b);
for c:=a to b do
d:=d+c;
write('Tong n den m la: ',d);
readln;
end.

2/

Program BTH;

uses crt;

var b:real;

a,c:longint;

Begin

clrscr;

Write('Nhap so nguyen N: ');readln(a);

for c:=1 to a do

b:=b+1/c;

writeln('Tong day so tren la: ',b:4:2);

readln;

end.

3/

Mô tả thuật toán:

Bước 1: Nhập n  i--->1, a----->0;

Bước 2: a:=1/i(i+2).

Bước 3: i:= i+1;

Bước 3: Nếu i > n thì đến bước 5, ngược lại quay về bước 2.

Bước 4: Xuất kết quả a

Bước 5 kết thúc vòng lặp.