Ответы 1

  • //Pascal ABC.NET v3.1 сборка 1172Var n,k,i:integer; r:real;begin readln(n); k:=1; for i:=1 to n+1 do k:=k*i; r:=1/k; writeln(r);end.Пример ввода:1Пример вывода:0.5
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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