• Дано целое число n 0 найти произведение 1.1 1.2 1.3 n сомножителей

Ответы 1

  • PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  SeqGen(ReadInteger('n='),i->i+1,10).Select(i->i/10)      .Aggregate(1.0,(a,b)->a*b).Printlnend.Примерn= 154274.47366714368
    • Автор:

      anvil
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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