viết chương trình tính tổng các số T=1+1/2+1/3+...+1/n

Xác định bài toán

-input: số n

-output: tính tổng của 1+1/2+1/3+...+1/n

Mô tả thuật toán

-Bước 1: nhập n

-Bước 2: s:=0; i:=1;

-Bước 3: s:=s+1/i;

-Bước 4: inc(i);

-Bước 5: nếu i<=n thì quay lại bước 3

-Bước 6: Xuất s

-Bước 7: Kết thúc

Viết chương trình

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong la: ',s:4:2);

readln;

end.

uses crt;

var n,i:word; T:real;

begin

clrscr;

readln(n);

for i:=1 to n do T:=T+1/i;

write('T=',T:4:2);

readln

end.