Question

Напишите программу которая вычисляет сумму 1) Первыз n натуральных чисел 2) квадратов первых n натуральных чисел 3) Всех четных чисел в диапазоне от 1до n 4) всех двузначных чисел

Answer 1

// PascalABC.NET
var i,n,s1,s2,s3,s4:integer;
begin
  readln(n);
  for i:=1 to n do begin
    s1:=s1+i;
    s2:=s2+i*i;
    if i mod 2=0 then s3:=s3+i;
    if (i>9) and (i<100) then s4:=s4+i;
  end;
  writeln(s1,' ',s2,' ',s3,' ',s4)

end.

Answer 2

Я могу помочь вам с написанием программы, которая вычисляет сумму различных чисел. Вот пример программы на языке Python, которая делает то, что вы просили:

# Функция, которая возвращает сумму первых n натуральных чисел
def sum_of_natural_numbers(n):
    # Используем формулу арифметической прогрессии
    return n * (n + 1) // 2

# Функция, которая возвращает сумму квадратов первых n натуральных чисел
def sum_of_squares_of_natural_numbers(n):
    # Используем формулу суммы квадратов натуральных чисел
    return n * (n + 1) * (2 * n + 1) // 6

# Функция, которая возвращает сумму всех четных чисел в диапазоне от 1 до n
def sum_of_even_numbers(n):
    # Используем факт, что сумма четных чисел от 1 до 2k равна k * (k + 1)
    # Найдем наибольшее k, такое что 2k <= n
    k = n // 2
    # Вернем сумму четных чисел от 1 до 2k
    return k * (k + 1)

# Функция, которая возвращает сумму всех двузначных чисел
def sum_of_two_digit_numbers():
    # Используем факт, что сумма двузначных чисел от 10 до 99 равна 45 * 100 - 45 * 10
    # Это можно получить, используя формулу арифметической прогрессии для каждой цифры
    return 45 * 100 - 45 * 10

# Запрашиваем у пользователя значение n
n = int(input("Введите n: "))

# Вычисляем и выводим суммы
print("Сумма первых", n, "натуральных чисел равна", sum_of_natural_numbers(n))
print("Сумма квадратов первых", n, "натуральных чисел равна", sum_of_squares_of_natural_numbers(n))
print("Сумма всех четных чисел в диапазоне от 1 до", n, "равна", sum_of_even_numbers(n))
print("Сумма всех двузначных чисел равна", sum_of_two_digit_numbers())

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад помочь.