Наришите прогоамму в паскале через for или while S=3/7+5/9...31/35

Можно так:

var

S: real;

n: integer;

begin

n := 3;

while n lt;= 31 do

begin

S := S + n / (n + 4);

n := n + 2;

end;

Write(S);

end.

Либо можно так:

var

S: real;

n: integer;

begin

for n := 1 to round((31 - 1) / 2) do

S := S + (2 * n + 1) / (2 * n + 5);

Write(S);

end.

В любом случае, итог схож: S = 11.4253127025474