Ребят подскажите по информатике S=|x-7|/7+|x-8|/7+|x-9|/9+...+|x-n|/n Вычислить сумму...

Question

Ребят подскажите по информатике S=|x-7|/7+|x-8|/7+|x-9|/9+...+|x-n|/n Вычислить сумму циклом с постусловием

Answer 1

Var x,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0; i:=6;
repeat
 i:=i+1
 s:=s+abs(x-i)/i;
until i=n;
writeln('s = ',s);
end.

Пример:
x = 3
n = 10
s = 2.56309523809524