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 и C/C++. Давайте начнем с языка Pascal:

Задача 1 (Pascal):

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

Задача 2 (Pascal):

pascalCopy code
program ProductOfNumbers;
var
  i: integer;
  product: int64; // Используем int64 для больших результатов
begin
  product := 1;
  for i := 38 to 72 do // 38 * 39 * ... * 72
    product := product * i;
  writeln('Произведение 35 чисел начиная с 38 равно: ', product);
end.

Задача 3 (Pascal):

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

Задача 4 (Pascal):

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

Теперь решения на языках C/C++:

Задача 1 (C/C++):

cCopy code
#include <stdio.h>

int main() {
  int sum = 0;
  for (int i = 31; i <= 99; i += 2) {
    sum += i;
  }
  printf("Сумма 35 нечетных чисел начиная с 31 равна: %d\n", sum);
  return 0;
}

Задача 2 (C/C++):

cCopy code
#include <stdio.h>

int main() {
  long long product = 1;
  for (int i = 38; i <= 72; i++) {
    product *= i;
  }
  printf("Произведение 35 чисел начиная с 38 равно: %lld\n", product);
  return 0;
}

Задача 3 (C/C++):

cCopy code
#include <stdio.h>

int main() {
  int N;
  printf("Введите натуральное число N: ");
  scanf("%d", &N);
  printf("Делители числа %d:\n", N);
  for (int i = 1; i <= N; i++) {
    if (N % i == 0) {
      printf("%d\n", i);
    }
  }
  return 0;
}

Задача 4 (C/C++):

cCopy code
#include <stdio.h>

int main() {
  int M, K;
  printf("Введите натуральное число M: ");
  scanf("%d", &M);
  printf("Введите натуральное число K: ");
  scanf("%d", &K);
  printf("Числа, кратные 5, в интервале (%d, %d):\n", M, K);
  for (int i = M + 1; i < K; i++) {
    if (i % 5 == 0) {
      printf("%d\n", i);
    }
  }
  return 0;
}

Эти программы должны выполнять соответствующие задачи на языках Pascal, C и C++.