Для заданного числа N составьте программу вычисления суммы S=1/2-1/3+1/4-1/5+..+1/n, где n нат
Для заданного числа N составьте программу вычисления суммы S=1/2-1/3+1/4-1/5+..+1/n, где n натуральное число.
Гость
Ответ(ы) на вопрос:
Гость ///PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n: integer;
s:real;
begin
readln(n);
s:=0;
for i:=2 to n do begin
if i mod 2=0 then s:=s+1/i
else s:=s-1/i ;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы