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.

Answer 2

Конечно, вот пример программы на языке Python, которая решает указанные задачи:

1. Вычисление суммы первых n натуральных чисел:

pythonCopy code
def sum_of_natural_numbers(n):
    sum = 0
    for i in range(1, n+1):
        sum += i
    return sum

n = int(input("Введите значение n: "))
result = sum_of_natural_numbers(n)
print("Сумма первых", n, "натуральных чисел равна:", result)

2. Вычисление суммы квадратов первых n натуральных чисел:

pythonCopy code
def sum_of_squares(n):
    sum = 0
    for i in range(1, n+1):
        sum += i**2
    return sum

n = int(input("Введите значение n: "))
result = sum_of_squares(n)
print("Сумма квадратов первых", n, "натуральных чисел равна:", result)

3. Вычисление суммы всех чётных чисел в диапазоне от 1 до n:

pythonCopy code
def sum_of_even_numbers(n):
    sum = 0
    for i in range(2, n+1, 2):
        sum += i
    return sum

n = int(input("Введите значение n: "))
result = sum_of_even_numbers(n)
print("Сумма всех чётных чисел в диапазоне от 1 до", n, "равна:", result)

4. Вычисление суммы всех двузначных чисел:

pythonCopy code
def sum_of_two_digit_numbers():
    sum = 0
    for i in range(10, 100):
        sum += i
    return sum

result = sum_of_two_digit_numbers()
print("Сумма всех двузначных чисел равна:", result)

Вы можете выбрать одну из этих программ или запустить их по очереди для решения разных задач.