Question

Напишите программу, которая вычисляет сумму: а) первых n натуральных чисел; б) квадратов первых n натуральных чисел;

Answer 1

Var n:integer;
    S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
    S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
    S:=S+n*n;
WriteLn('б) S = ',S);
End.

Answer 2

A) begin write(seqgen(readinteger(), x -> x + 1, 0).Sum); end.
б) begin write(seqgen(readinteger(), x -> x * x, 1).Sum); end.

Answer 3

Какой язык программирования предпочитаете? Ниже пример кода на Python для решения задачи:

а) Сумма первых n натуральных чисел:

pythonCopy code
n = int(input("Введите число n: "))
sum = 0
for i in range(1, n+1):
    sum += i
print("Сумма первых", n, "натуральных чисел равна", sum)

б) Сумма квадратов первых n натуральных чисел:

pythonCopy code
n = int(input("Введите число n: "))
sum = 0
for i in range(1, n+1):
    sum += i**2
print("Сумма квадратов первых", n, "натуральных чисел равна", sum)

Оба решения используют цикл for, который перебирает числа от 1 до n включительно. Внутри цикла выполняется соответствующее вычисление суммы. В первом случае просто суммируются числа от 1 до n, а во втором случае суммируются квадраты этих чисел. Результат выводится на экран.