Question

1.Viết chương trình tính S= 1-2+3-4+5-6

2.Viết chương trình tính S= 2/1 + 3/2 + 4/3 + 5/4 + 6/5

Xin mọi người giúp mình giải 2 bài này gấp nhaaaa!!! Xin cảm ơn

Answer 1

1.

Var i : integer;

S : real;

Begin

S:= 0

For i:= 1 to 6 do S:= S+(i - (i+1));

Write (S);

Readln;

End.

2.

Var i : integer;

S : real;

Begin

S:= 0

For i:= 1 to 6 do S:= S+((i+1)/i);

Write (S);

Readln;

End.