Question

Подсчитать сумму и произведение первых N натуральных чисел.С помощью операторов или while,или repeat или for

Answer 1

Ответ:

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

PascalABC.NET:

#1 (По умному)

begin

 var a := Range(1, ReadInteger('N = '));

 a.Sum.Println;

 a.Aggregate(BigInteger.One, (p, q) -> p*q).Println;

end.

#2 "А нас учили по другому"

begin

 var N := ReadInteger();

 var sum:int64 := 0;

 var prod:BigInteger := 1;  //Для большого N произведение не влезет в int64, по этому юзаем бесконечное целое число BigInteger

 for var i := 1 to N do begin

   sum += i;

   prod *= i;

 end;

 Println(sum, prod);

end.

#3 Вариант на Питоне

summ, prod = 0, 1

for i in range(1, int(input())+1):

   summ += i; prod *= i

print(summ, prod)

Объяснение:

Answer 2

Для подсчета суммы и произведения первых N натуральных чисел, вы можете использовать циклы "for", "while" или "repeat" на языке программирования, таком как Python. Ниже приведены примеры использования каждого типа цикла для этой задачи:

1. Используя цикл "for" на Python:

pythonCopy code
def sum_and_product_with_for(N):
    sum_result = 0
    product_result = 1

    for i in range(1, N + 1):
        sum_result += i
        product_result *= i

    return sum_result, product_result

N = 5  # Здесь задайте любое значение N
sum_result, product_result = sum_and_product_with_for(N)
print("Сумма первых", N, "натуральных чисел:", sum_result)
print("Произведение первых", N, "натуральных чисел:", product_result)

2. Используя цикл "while" на Python:

pythonCopy code
def sum_and_product_with_while(N):
    sum_result = 0
    product_result = 1
    i = 1

    while i <= N:
        sum_result += i
        product_result *= i
        i += 1

    return sum_result, product_result

N = 5  # Здесь задайте любое значение N
sum_result, product_result = sum_and_product_with_while(N)
print("Сумма первых", N, "натуральных чисел:", sum_result)
print("Произведение первых", N, "натуральных чисел:", product_result)

3. Используя цикл "repeat-until" на Pascal:

pascalCopy code
program SumAndProduct;
var
  N, i, sum_result, product_result: Integer;
begin
  Write('Введите число N: ');
  ReadLn(N);

  sum_result := 0;
  product_result := 1;
  i := 1;

  repeat
    sum_result := sum_result + i;
    product_result := product_result * i;
    i := i + 1;
  until i > N;

  WriteLn('Сумма первых ', N, ' натуральных чисел: ', sum_result);
  WriteLn('Произведение первых ', N, ' натуральных чисел: ', product_result);
end.

Во всех трех примерах вы можете изменить значение переменной N на любое другое натуральное число, чтобы получить сумму и произведение первых N натуральных чисел.