Составить программу вычисления - Pascal ABC (14502)

Формулировка задачи:

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

Код к задаче: «Составить программу вычисления - Pascal ABC (14502)»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы