Регистрация
nselt
23.03.2021 23:55
Информатика
Есть ответ 👍

Эргономиканың міндеттері​

212
414
Посмотреть ответы 1

Ответы на вопрос:

sashasasha404
sashasasha404
4,5(88 оценок)
Var       x, a, s: real;       n, i: integer; begin       write('введите x и n ');       readln(x, n);             a : = 1;       s : = a;       for i : = 1 to n do       begin               a : = a * (-1) * x * x / (2 * i - 1) / (2 * i);               s : = s + a;       end;             writeln('s = ', s: 10: 3); end.

Популярно: Информатика