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.
