Предмет: Информатика, автор: alekseevalex

Наришите прогоамму в паскале через for или while

S=3/7+5/9...31/35

Ответы

Автор ответа: Ziorar
0

Можно так:

var

S: real;

n: integer;

begin

n := 3;

while n <= 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

Похожие вопросы
Предмет: Русский язык, автор: pescherevaanastasiya
Предмет: Математика, автор: alexhayyan
Предмет: Математика, автор: Лейла2222