Еще с этим значениями переменных a и b являются натуральные числа. пусть a=50 и b=20 тогда в результате работы следующего алгоритма: 1. если a=b, то работа алгоритма закончена; иначе выполняется пункт 2; 2. если a больше b, то переменной a присваивается значение a – b; иначе переменной b присваивается значение b – a; 3. выполняется пункт 1 данного алгоритма. какое значение примет переменная a?

Program program1; var a,b: integer; x: boolean; begin repeat begin a: =50; b: =20; if a=b then x: =true else begin if a> b then a: =a-b else b: =b-a; end end; until x=false; write(a); readln; end. значение а=30.

Результат в приложении

Объяснение:

int main()

{

   int x[20] = { 1,-2,3,-4,5,-6,-7,3,-1,14,33,45,-1,13,-8,3,2,8,90,11 };

   int y[20];

   int n = 0;

   for (int i = 1; i < 19; i++)

   {

       if (x[i - 1] < 0 && x[i + 1] < 0)

       {

           bool exists = false;

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

           {

               if (y[j] == x[i])

               {

                   exists = true;

                   break;

               }

           }

           if (!exists)

           {

               y[n] = x[i];

               n++;

           }

       }

   }

   if (n == 0)

       std::cout << "Нет элементов" << std::endl;

   else

   {

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

       {

           std::cout << (y[i]) << " ";

       }

       std::cout << std::endl;

   }

   _getch(); //Экран не закрывается, пока не нажата любая клавиша

   return 0;

}

Var a,b: set of integer;     i,n: integer; begin   write('кол-во элементов множества:   ');   readln(n);   randomize;   for i: =1 to n do     a: =a+[random(250)];   write('элементы множества:   ');   foreach i in a do   begin     write(i,' ');     if i mod 2 = 0 then b: =b+[i];   end;   writeln;   write('подмножество четных элементов:   ');   foreach i in b do write(i,' '); end.