39

Вычислите сумму первых n элементов: 1-1\2+1\3-1\4+1\5-1\6+… Указание. Используйте внутри…

12 марта 2023

Вычислите сумму первых n элементов: 1-1\2+1\3-1\4+1\5-1\6+… Указание. Используйте внутри цикла оператор if odd (…) then …

категория: информатика



53

// сумма 2 членов ряда=1-1/2+1/3=0,83333333 примерно Program SumPosl; Uses Crt; var i,n: integer; c: real; begin c: =1; clrscr; write ('Введите n: '); readln (n); for i: =2 to (n+1) do if odd (i)=false then c: =c- (1/i) else c: =c+(1/i); writeln ('Сумма n членов ряда: ',c: 5:5); readkey; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...