Нужно написать программу на питоне и паскале

Question

Нужно написать программу на питоне и паскале

Александр Петров Ученик (63), закрыт 2 года назад

Вычислить сумму элементов бесконечного рядя с заданной точностью e = 0.00001. Условием окончания вычислений считать I Sn I <= e
Значение x задать самостоятельно Нужно написать программу на питоне и паскале

Нужно написать программу на питоне и паскале

Answer 1

 const e = 1e-5;
var x, y, z, p, q, s, e: real;
begin
    while true do
    begin
        write('x: ');
        readln(x);
        y := 0.3 * x + 5;
        z := sqr(y);
        p := y / 120;
        q := 5;
        s := p;
        while abs(p) > e do
        begin
            q := q + 2;
            p := p * z / (q * (q - 1));
            s := s + p
        end;
        writeln(s)
    end
end.

Для Пайтона алгоритм тот же самый.

Answer 2

Тамер Гайнов Гуру (2562) 2 года назад

пиши лучше на бумаге