Дано целое число n. Вычеслить S=1/4+1/8+1/12+...+1/4nСрочно надо ребята
Дано целое число n. Вычеслить S=1/4+1/8+1/12+...+1/4n
Срочно надо ребята
Гость
Ответ(ы) на вопрос:
Гостьvar
S: double;
i, n: integer;
begin
readln(n);
for i := 4 to 4 * n do
S += 1 / i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы