• Составить программу вычисления 1.1+1.2+1.3+...+2.1, вывести на печать результат

Ответы 2

  • PascalABC.NET
    • Автор:

      todd
    • 6 лет назад
    • 0
  • begin

     //1 вариант

     Partition(1.1, 2.1, 10).Sum.Println;

     

     //2 вариант

     Range(11, 21).Aggregate(0.0, (Sum, x)-> Sum + x / 10).Println;

     

     //3 вариант

     Range(11, 21).Select(x->x/10).Sum.Println;

     

     //4 вариант

     var Sum := 0.0;

     foreach var x in Range(11, 21) do

       Sum += x / 10;

     Sum.Println;

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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