Ответы
Ответ дал:
0
var
i,n:integer;
sum,x:real;
begin
write ('X = ');
readln(x);
write ('N = ');
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+1/(x+i);
writeln ('Summa: ',sum:0:4);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад