№1. найти произведение цифр заданного трехзначного числа. №2.вычислить выражение y=cos(1)+cos(1/2)+cos(1/3)++cos(1/n), где n вводить с клавиатуры. №3. даны действительные числа а1, а2…аn. определить наименьший нечетный элемент массива. вариант №7. №1.даны два действительных числа х и у. вычислить их произведение и частное. №2.вычислить выражение у=1/2*2/3*3/4*4/5*…*n/(n+1), где n вводится с клавиатуры. №3. даны действительные числа а1, а2…аn. определить произведение элементов массива, стоящих на четных местах. №4.вычислить сумму четных элементов одномерного массива до первого встречного нулевого элемента.

1. uses crt; var n: string; begin read(n);   writeln(strtoint(n[1])*strtoint(n[2])*strtoint(n[3])); end.2.uses crt; var n,i: integer; res: double; beginread(n); for i: =1 to n dores: =res+cos(1/i); writeln(res: 5: 3); end.3.uses crt; var n,i: integer; mult: real; a: array[1..100] of real; beginmult: =1; writeln('input n and elements of array.'); read(n); for i: =1 to n dobeginread(a[i]); if i mod 2=0 then  mult: =mult*a[i]; end;   writeln(mult); end.4.uses crt; var n,i,sum: integer; a: array[1..100] of integer; beginwriteln('input n and elements of array.'); read(n); for i: =1 to n doread(a[i]); i: =1; while (a[i]< > 0) and (i< =n) dobeginif a[i] mod 2=0 thensum: =sum+a[i]; i: =i+1; end; writeln(sum); end.

Объяснение:

Множество относится к структурным типам данных.

Тип «множество» задаёт интервал значений, который явля-

ется множеством всех подмножеств базового типа. Базовый

тип – это перечислимый тип, кроме word, integer, longint. Син-

таксис определения типа множества:

<имя типа> = set of <базовый тип>;

Примеры:

Type

Tdigit = set of 0 .. 9;

Tsimv = set of ‘A’ .. ‘Z’ ;

Var

digit : Tdigit ;

simv : Tsimv;

Если переменная типа «множество» описана как set of 1 .. 3, то

она может принимать следующие значения: (1, 2, 3), (1, 2), (1,

3), (2, 3), (1), (2), (3), ().

Размер множества равен числу компонент базового типа

и может меняться от 0 до 256. Множество может быть пустым.

Объяснение:

#include <iostream>

#include <ctime>

#include <string>

using namespace std;

int main()

{

   srand(time(NULL));

   int N, M; // Розміри матриці

   cout << "Enter n: ";

   cin >> N;

   cout << "Enter m: ";

   cin >> M;

   if (N != M) // Перевірка на не квадратну матрицю

   {

       cout << "n should be equal to m" << endl;

       return 0;

   }

   int a, b; // Межі випадкових чисел масиву

   cout << "Enter a: ";

   cin >> a;

   cout << "Enter b: ";

   cin >> b;

   int Width = max(to_string(a).length(), to_string(b).length()) + 1; // Ширина для cout

   int** arr = new int* [N]; // Виділення пам'яті для динамічного масиву

   int** result = new int* [N]; // Виділення пам'яті для динамічного масиву (результат)

   for (int i = 0; i < N; i++)

   {

       arr[i] = new int[M];

       result[i] = new int[M];

   }

   cout << "n = " << N << endl

       << "m = " << M << endl

       << "Interval - [" << a << ";" << b << "]" << endl << endl

       << "Our matrix: " << endl;

   for (int i = 0; i < N; i++)

   {

       for (int j = 0; j < M; j++)

       {

           arr[i][j] = a + rand() % (b - a + 1);

           cout.width(Width); // Щоб було красиво

           cout << arr[i][j];

       }

       cout << endl;

   }

   for (int i = 0; i < N; i++)

   {

       for (int j = 0; j < M; j++)

       {

           if (j == 0 && i != N - 1)

           {

               result[N - 1][i + 1] = arr[i][j];

           }

           else if (i == N - 1 && j != 0)

           {

               result[j - 1][0] = arr[i][j];

           }

           else

           {

               result[i][j] = arr[i][j];

           }

       }

   }

   cout << endl << "Result matrix:" << endl;

   for (int i = 0; i < N; i++)

   {

       for (int j = 0; j < M; j++)

       {

           cout.width(Width); // Щоб було красиво

           cout << result[i][j];

       }

       cout << endl;

   }

   for (int i = 0; i < N; i++) // Звільнення пам'яті відведеної під динамічні масиви

   {

       delete[] result[i];

       delete[] arr[i];

   }

   delete[] result;

   delete[] arr;

}