Question

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

1) первых n натуральных чисел;

2) квадратов первых n натуральных чисел;

3) всех чётных чисел в диапазоне от 1 до n;

4) всех двузначных чисел

ПОЖАЛУЙСТА ОЧЕНЬ НАДО
​

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.