• Составить программу вычисления
    (-3)+(-2)+(-1)+0+1+...+11
    Вывести на печать результат
    3 варианта!!!!

Ответы 1

  • begin

     //1 вариант

     Range(-3, 11).Sum.Println;

     

     //2 вариант

     Range(-3, 11).Aggregate(0, (Sum, x)-> Sum + x).Println;

     

     //3 вариант

     var Sum := 0;

     foreach var x in Range(-3, 11) do

       Sum += x;

     Sum.Println;

     

     //4 вариант

     Sum := 0;

     for var i := -3 to 11 do

       Sum += i;

     Sum.Println;

     

     //5 вариант

     Sum := 0;

     var j := -3;

     while j <= 11 do

     begin

       Sum += j;

       j += 1

     end;

     Sum.Println;

     

     //6 вариант

     Sum := 0;

     j := -3;

     repeat

       Sum += j;

       j += 1;

     until j > 11;

     Sum.Println;

    end.

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

Войти через Google

или

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

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

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