• решите задачу по паскаль пожалуйста
    смотрите ниже

    question img

Ответы 1

  • var    i, n: integer;    a, s: real;begin    readln(n);    a := 1;    s := a;        for i := 1 to n do     begin        a := a / 3;        s := s + a;    end;        writeln(s);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years