• найти сумму чисел от 1 до N, делящихся на 5 и меньших а.
    Паскаль

Ответы 2

  • //PascalABC.NET 3.1 сборка 1200
    • Автор:

      hopesfzu
    • 6 лет назад
    • 0
  • begin    var a := ReadInteger('a =');    PrintLn(        Range(1, ReadInteger('n ='))        .Where(x -> (x mod 5 = 0) and (x < a))        .Aggregate((s, x)-> s + x)    );end.
    • Автор:

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

Войти через Google

или

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

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

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