Question

Напишите программу нахождения суммы первых 50 чисел, используя цикл с параметром

Answer 1

===== PascalABC.NET =====

begin

 var s := 0;

 for var i := 1 to 50 do

   s += i;

 Print(s)

end.