Написать в паскале программу, которая считает значение выражения x-1/x+x-2/2x ... + x-n/nx при заданных x и n

Question

Информатика

Настеха

4 января, 23:00

Написать в паскале программу, которая считает значение выражения x-1/x+x-2/2x ... + x-n/nx при заданных x и n

+4

Ответы (1)

Знаете ответ?

Леонтьич · Answer 1

Var x, s, a:real; n, i:integer;

begin

write ('x=') ; readln (x) ;

write ('n=') ; readln (n) ;

s:=0;

for i:=1 to n do

begin

a: = - (x-i) / (i*x) ;

s:=s+a;

end;

writeln ('s=', s:5:2) ;

end.

Пример:

x=1.5

n=10

s = 3.74