сумма ряда Опции

[qwer]

Здравствуйте! я учусь в 8 классе, но нам задают такие задачи, что я не могу решить. Если сможете помогите.

вычислить сумму ряда 2/3 + 3/4 + 4/5 + 5/6 до 10/11


и ещё одна ваще сложная

известны данные о росте 15 юношей класса, упорядоченные по убыванию. Нет ни одной пары учеников одинакового роста. В начале учебного года поступил новый ученик. Какое место в перечне роста он занимает?
Известно, что рост его не совпадает с ростом ни одного ученика. Превышает самого низкого и меньше самого высокого.
P.S. условный оператор не использовать

заранее благодарю за помощь!!!

[klem4]

Ладно, разбирайся и убедись как все просто на самом деле!

1)

{$N+}

uses crt;

var

  x: Integer;
  s: Single;

begin

  clrscr;

  s := 0;

  for x := 2 to 10 do
   s := s + x / (x + 1);


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


  readln;

end.

2)

Если все условия соблюдены :

uses crt;

const

  s : array [1..15] of Integer = (1,2,6,9,12,13,17,28,39,50,61,72,83,94,99);

var

  n, i: Integer;

begin

  clrscr;

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

  i := 1;

  while (i <= 15) and (n > s[i]) //первое условие не обязательно, если все суловия точно соблюдены 
   do inc(i);

  writeln('Position = ', i);

  readln;
end.

[qwer]

Странно, но в перврй задаче паскаль выдаёт ошибку! в строке S:= 0

а во второй всегда показывает ответ 1 ????

[klem4]

Странно, но в перврй задаче паскаль выдаёт ошибку! в строке S:= 0

а во второй всегда показывает ответ 1 ????

1) Дааа это самая опасная строка в программе ... ЧТОЖЕ за ошибка там у тебя ?
2) Ты вот эти условия учел ?

Известно, что рост его не совпадает с ростом ни одного ученика. Превышает самого низкого и меньше самого высокого.

и эти :

Во втором задании у меня начальные 15 чисел упорядочены по возрастанию, как изменить программу для твоего варианта подумай сам

??