Question

Viết chương trình tính tổng

a. S = 1 + 2 + 3 + ... + n

b. S = 1 + 1/2 + 1/3 + ... + 1/n

c. S = 1 + 1/2 + 1/3 + ... + 1/ (n+1)

trong đó n là số nguyên được nhập từ bàn phím

Answer 1

a: uses crt;

var s,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

b: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

c: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s+1/(n+1):4:2);

readln;

end.