Информатика, опубликовано 2018-08-22 18:23:37 by Гость

1 + 1/24 + 1/34 +…+ 1/n4 =0.000001 Ответ: 1.08232 Напишите программу в паскале

Ответ оставил Гость

Var
    e, a, s: real;
    i: integer;

begin
    write(Введите точность Е );
    readln(e);

    a := 0;
    s := a;
    i := 0;

    repeat
        i := i + 1;
        a := 1 / sqr(sqr(i));
        s := s + a;
    until abs(a)
    writeln(s);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.