Question

Помогите пожалуйста на Pascal или c/c++ решить эти задачи, буду очень благодарен! Задача 1. Вычислить сумму тридцати пяти нечетных чисел натурального ряда, начиная с 31. Задача 2. Вычислить произведение тридцати пяти чисел натурального ряда, начиная с 38. Задача 3. Определить все делители натурального числа N. Задача 4. Есть натуральные числа M там К. Вывести все числа, кратные пяти, из интервала (M, K).

Answer 1

Ответ: Я так понимаю, никто не способен давать ответы на такие вопросы :D

1.

#include <iostream>

using namespace std;

int main()

{

   long long i = 35, j = 31, sum = 0;

   while(i)

   {

       if(j % 2)

       {

           sum += j;

           i--;

       }

       j++;

   }

   cout << sum << endl;

   return 0;

}

Ответ: 2275

2.

#include <iostream>

using namespace std;

int main()

{

   unsigned long long i = 35, j = 38, sum = 1;

   while(i--)

   {

       sum *= j;

       j++;

   }

   cout << sum << endl;

   return 0;

}

Ответ: 9776069387944460288

3.

#include <iostream>

using namespace std;

int main()

{

   long long n, i = 1, n1, ans = 0;

   cin >> n;

   n1 = n/2;

   while(i <= n1)

   {

       if(!(n % i))

           ans++;

       i++;

   }

   cout << ans << endl;

   return 0;

}

4.

#include <iostream>

using namespace std;

int main()

{

   long long m, k, ans = 0;

   cin >> m >> k;

   for(; m <= k; m++)

       if(m % 5 == 0)

       ans++;

   cout << ans << endl;

   return 0;

}

Объяснение:

Answer 2

Конечно, вот решения для каждой из задач на Pascal:

Задача 1. Вычислить сумму тридцати пяти нечетных чисел натурального ряда, начиная с 31:

pascalCopy code
program Task1;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 31 to 65 step 2 do
    sum := sum + i;
  writeln('Сумма 35 нечетных чисел начиная с 31: ', sum);
end.

Задача 2. Вычислить произведение тридцати пяти чисел натурального ряда, начиная с 38:

pascalCopy code
program Task2;
var
  i: integer;
  product: int64;
begin
  product := 1;
  for i := 38 to 72 do
    product := product * i;
  writeln('Произведение 35 чисел начиная с 38: ', product);
end.

Задача 3. Определить все делители натурального числа N:

pascalCopy code
program Task3;
var
  N, i: integer;
begin
  write('Введите натуральное число N: ');
  readln(N);
  writeln('Делители числа ', N, ':');
  for i := 1 to N do
  begin
    if N mod i = 0 then
      writeln(i);
  end;
end.

Задача 4. Вывести все числа, кратные пяти, из интервала (M, K):

pascalCopy code
program Task4;
var
  M, K, i: integer;
begin
  write('Введите начало интервала M: ');
  readln(M);
  write('Введите конец интервала K: ');
  readln(K);
  writeln('Числа, кратные пяти, в интервале (', M, ', ', K, '):');
  for i := M + 1 to K - 1 do
  begin
    if i mod 5 = 0 then
      writeln(i);
  end;
end.

Вы можете скомпилировать и выполнить каждую из этих программ на Pascal, чтобы получить результаты. Пожалуйста, обратите внимание, что в приведенных решениях предполагается, что ввод данных будет корректным (например, ввод чисел в задачах 3 и 4).