profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

По данному числу n вычислите сумму 2(1-1/3+1/5-1/7+...+(-1)n/(2n+1)). Формат входных данных: Вводится одно число n, не превосходящее 100000. Формат выходных данных: Необходимо вывести значение выражения

  1. Ответ
    Ответ дан preceptor
    Program Zadacha1;
    Var n: LongInt;
    i: Integer;
    r, a: Real;
    Begin
    Write('n = ');
    ReadLn(n);
    If n > 100000 Then
    WriteLn('Ошибка!')
    Else
    Begin
    r := 0;
    For i := 0 To n Do
    Begin
    r := r + a; 
    a := (1 - (i and 1) shl 1) * (1 / Abs(i * 2 + 1));
    End;
    WriteLn('Результат: ', r);
    End;
    ReadLn;
    End.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.