Question

1. viết chương trình tính 1+2+3+...+n?

2. viết chương trình tính 1+1/2+1/3+...+1/n (lưu ý: với n là 1 số bất kì được nhập vào từ bàn phím)

Answer 1

1.

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

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

write(t);

readln

end.

Answer 2

2.

Program HOC24;

var i,n: integer;

t: real;

begin

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

t:=0;

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

write(t:1:2);

readln;

end.