20 БАЛЛОВ Составить программу для решения следующих задач. Напишите программу, которая...

Question

20 БАЛЛОВ Составить программу для решения следующих задач. Напишите программу, которая вычисляет сумму: 1) первых n натуральных чисел; 2) квадратов первых n натуральных чисел; 3) всех чётных чисел в диапазоне от 1 до n; 4) всех двузначных чиселПОЖАЛУЙСТА ОЧЕНЬ НАДО​

Comments

на Питоне?

---

нет

---

ОК, тонда на

---

ОК, тогда напишу на PascalABC.NET

Answer 1

begin

 var n := ReadInteger('n =');

 1.To(n).Sum.Println;

 SeqGen(n, i -> i * i, 1).Sum.Println;

 Range(2, n, 2).Sum.Println;

 Range(10, 99).Sum.Print

end.

---