Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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