Для данного числа 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 естественное число.

Задать свой вопрос
Никита Кэостик
на каком йазыке?
Ангела
Паскаль
1 ответ
///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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт