Составить программу вычисления

@Sarad · Регистрация: 12.10.2015

S=1/2-1/4+1/6-1/8+..+1/18-1/20
помогите пожалуйста

Pascal

program sok;
var s:REAL
i:Integer;
BEGIN
s:=0;
for i:=2 to 20 do s:=s+1/i; -вот здесь ступор, не понимаю как перейти на четные 
 
END.

@Puporev · 12.10.2015, 15:01

Pascal

var s:real;
    i,z:integer;
begin
s:=0;
z:=-1;
for i:=1 to 10 do
 begin
  z:=-z;
  s:=s+z/2/i;
 end;
write('S=',s:0:4)
end.

И вырви CapsLock если уж руки чешутся.

@Sarad · 12.10.2015, 15:19 **[ТС]**

Спасибо!

@Sarad 0 / 0 / 0 Регистрация: 12.10.2015 Сообщений: 17
	12.10.2015, 15:19 [ТС]	3
	Спасибо! 0