вычислите сумму первых n элементов:
1-1\2+1\3-1\4+1\5-1\6+...
Указание. Используйте внутри цикла оператор if odd(...) then ...
else ...
Предмет:
ИнформатикаАвтор:
cutietic3// сумма 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.
Автор:
alliekjrkДобавить свой ответ
Взять по 3 предложения с разными наклонениями, повторюсь по 3 предложения, плиз...
Предмет:
Русский языкАвтор:
dukeОтветов:
Смотреть
Семязачатки у сосны обыкновенной расположены: Выберите правильный ответ: на чешуях женских шишек на чешуях мужских шишек на листьях на стеблях
Предмет:
ХимияАвтор:
maggie-maedelacruzОтветов:
Смотреть
1.Способность организмов воспроизводить себе подобных:
А)ИзменчивостЬ
Б)Мутация
С)Размножение
Д)Дыхание
Е)Наследственность.
2.Способность организмов передавать свои признаки из поколения в поколение:
А)Наследственность.
Б)ИзменчивостЬ
С)Коацерваты
Д)Мутация
Е)Размножение