Написать в паскале программу, которая считает значение выражения x-1/x+x-2/2x...+x-n/nx при заданных x и n
Написать в паскале программу, которая считает значение выражения x-1/x+x-2/2x...+x-n/nx при заданных x и n
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы