Помогите найти сумму

[karlson]

Помогите найти сумму

Здраствуйте, помогите найти сумму

 

[karlson]

нужно в Pascal(е)

 

[Vladimir_S]

Здраствуйте, помогите найти сумму

По-моему, так:

Var
 S:Real;
 i,N:Byte;
Begin
 Write('N= ');
 Readln(N);
 S:=1+N;
 for i:=N-1 downto 2 do S:=1+i/S;
 S:=1/S;
 Writeln('S= ',S:0:5);
 Readln;
End.

 

[karlson]

По-моему, так:

Var
 S:Real;
 i,N:Byte;
Begin
 Write('N= ');
 Readln(N);
 S:=1+N;
 for i:=N-1 downto 2 do S:=1+i/S;
 S:=1/S;
 Writeln('S= ',S:0:5);
 Readln;
End.

спасибо огромное

 

[Gruvi]

В принципе, там можно еще сделать через другие циклы.

 

[karlson]

переделайте её пожалуйста так, чтобы считал сначала 1/1 потом 1/3 1/4 1/4 1/n