Input : số nguyên dương n
Output : Tổng dãy S
Thuật toán
B1 Nhập số dương n
B2 s <- 0;
i <- 2 to n
B3: s <- s+1/i
B4: In ra kết quả
B5 Kết thúc thuật toán
Chương trình
Program Ahihi;
Uses Crt;
Var a,b:integer;
c:real;
Begin
Clrscr;
Write('Nhap so n: ');readln(a);
For b:=2 to a do c:=c+1/b;
Writeln('Tong day so tren la: ',c:4:2);
readln;
End.