Summa Drobey - Паскаль, Turbo Pascal, PascalABC.NET

aless23 · 20.12.2011, 17:51

Прошу реализовать задачу на Pascal:

S=1-1/2+1/3-...+1/9999-1/10000

Заранее очень благодарен!!

Mad_Cat · 20.12.2011, 17:55

Код:

var
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10000 do
if odd(i) then s:=s+1/i else s:=s-1/i;
writeln(s:8:6);
end.

aless23 · 20.12.2011, 18:00

Ухххх спасибо большущеееее!!!)))

а если можно ещё узнать а что такое Odd(i) ?)

Mad_Cat · 20.12.2011, 18:01

odd

20.12.2011, 17:51	#1
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Summa Drobey Прошу реализовать задачу на Pascal: S=1-1/2+1/3-...+1/9999-1/10000 Заранее очень благодарен!!

20.12.2011, 17:55	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `var i:integer; s:real; begin s:=0; for i:=1 to 10000 do if odd(i) then s:=s+1/i else s:=s-1/i; writeln(s:8:6); end.` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

20.12.2011, 18:01	#4
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	odd "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

20.12.2011, 18:00	#3
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Ухххх спасибо большущеееее!!!))) а если можно ещё узнать а что такое Odd(i) ?)