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

Question

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

Comments

на каком языке?

Answer 1

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.

Comments

PascalABC.NET