Циклы - Помощь студентам

vbchristy46 · 15.06.2010, 16:30

Посчитать сумму S=1+1/2+1/3+....+1/n

megachuhancer · 15.06.2010, 16:31

Код:

for i := 1 to n do s := s + 1 / i;

Snejnaya · 15.06.2010, 16:32

Код:

var sum:real;
     i:integer;
begin
sum:=0;
for i:=1 to n do
sum:=sum+1/i;
end.

RUSt88 · 15.06.2010, 16:33

Код:

s := 1;
for i := 2 to n do begin
   s := s + 1 / i;
end;

RUSt88 · 15.06.2010, 16:34

xxxxx, все по очереди ))))))))))

vbchristy46 · 15.06.2010, 16:36

Благодарю вас!!!!)))))))))

15.06.2010, 16:30	#1
vbchristy46 Пользователь Регистрация: 08.06.2010 Сообщений: 34	Циклы Посчитать сумму S=1+1/2+1/3+....+1/n

15.06.2010, 16:31	#2
megachuhancer Форумчанин Регистрация: 16.04.2009 Сообщений: 247	Код: `for i := 1 to n do s := s + 1 / i;`

15.06.2010, 16:32	#3
Snejnaya Форумчанин Регистрация: 12.05.2010 Сообщений: 219	Код: `var sum:real; i:integer; begin sum:=0; for i:=1 to n do sum:=sum+1/i; end.`

15.06.2010, 16:33	#4
RUSt88 Участник клуба Регистрация: 29.12.2009 Сообщений: 1,166	Код: `s := 1; for i := 2 to n do begin s := s + 1 / i; end;` прогер C\C++\C#\Delphi ася: [семь 3]-[97]-[1 шесть]

15.06.2010, 16:34	#5
RUSt88 Участник клуба Регистрация: 29.12.2009 Сообщений: 1,166	xxxxx, все по очереди )))))))))) прогер C\C++\C#\Delphi ася: [семь 3]-[97]-[1 шесть]

15.06.2010, 16:36	#6
vbchristy46 Пользователь Регистрация: 08.06.2010 Сообщений: 34	Благодарю вас!!!!)))))))))