Вычислить сумму (числа дробные) 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 -