Циклический алгоритм Опции

[Sonni]

Задача впринципе лёгкие
Вычислить сумму (числа дробные) 2/3, 3/4, 4/5 ....... 10/11

Я сделал так но не правильно:

Program Ex1;
Uses crt;
Var p,f: Integer;
S:Real;
Begin
Clrser;
S:=0;
For p:=2 to 10 do;
For f:=3 to 11 do;
S:=S+p/f;
WriteLn(‘Сумма равна’,S);
ReadLn;
END.

Сообщение отредактировано: volvo - 2.11.2006 2:19

[volvo]

Зачем 2 цикла? Надо обойтись одним:

s := 0;
For i := 2 to 10 do
  s := s + i / (i + 1);

[Sonni]

Зачем 2 цикла?

volvo Большое спавсибо