вычислите сумму первых n элементов:
1-12+13-14+15-16+...
Указание. Используйте внутри цикла оператор if odd(...) then ...
else ...
// сумма 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
