Question

Sử dụng vòng lặp for...dovà while...do viết chươnmg trình

a. Tính tổng S = 1+2+3+...+100

b. Tính tổng S +1+1/2+1/3+...+1/10

C. Tính tổng S=1+2+3+..n ( n nhập từ bàn phím)

d. Tính tổng S= 1+1/2+1/3....+1/n ( n nhập từ bàn phím)

Answer 1

a.

Var i : integer;

S : real;

Begin

S:= 0;

For i:=1 to 100 do S:= S + i;

Write (S);

Readln;

End.

b.

Var i : integer;

S : real;

Begin

S:= 0;

For i:=1 to 10 do S:= S + 1/i;

Write (S);

Readln;

End.

c.

Var i,n : integer;

S : real;

Begin

write ('n = '); read (n);

S:= 0;

For i:=1 to n do S:= S + i;

Write (S);

Readln;

End.

d.

Var i : integer;

S : real;

Begin

write ('n = '); read (n);

S:= 0;

For i:=1 to n do S:= S + 1/i;

Write (S);

Readln;

End.