3. не используя функцию возведения в квадрат, напишите на языке паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10 б)y=x^15 постараться использовать минимальное количество дополнительных переменных. 4. запишите на языке паскаль программу циклического обмена значениями трёх переменных a, b, c. схема циклического обмена: a ← b ← c. например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.

1) var       n: integer;             y, x: real; begin       readln(x, n);       y : = 1;       while n > 0 do       begin               y : = y * x;               n : = n - 1;       end;       writeln(y); end. 2) var       a, b, c, t, i: integer; begin       readln(a, b, c);       writeln(0: 2, ': a=', a, ' b=', b, ' c=', c);       for i : = 1 to 10 do       begin               t : = a;               a : = b;               b : = c;               c : = t;               writeln(i: 2, ': ', a, ' ', b, ' ', c);       end; end.

московское княжество, выдвигается позже других княжеств. о князьях в москве встречаются упоминания в xii и начале xiii вв.: может быть уже при  юрии долгоруком  здесь сидел один из его сыновей, ростислав. потом встречаем московским князем сына всеволода iii, владимира, и позже другого владимира, сына  юрия ii,  плененного татарами в 1237. следующий удельный князь михаил ярославич хоробрит, даже захватил великокняжеский владимирский стол, но вскоре погиб в битве с литовцами 1248.

его место занял в московском княжестве самый младший сын  александра невского–  даниил, правивший до 1303 и явившийся родоначальником династии московских князей. при нем московское княжество вышло из первоначальных пределов среднего течения р. москвы и захватило прилегающую территорию до устья реки при впадении в оку: в войне с рязанью даниил разбил князя константина романовича и присоединил к своим владениям г. коломну (1301). около того же времени племянник даниила  иван дмитриевич  умер и отказал по духовному завещанию московскому князю переяславль-залесский (1302).

1) var a, b: array [1..10] of integer; i, sum: integer; begin       sum : = 0;       for i : = 1 to 10 do           b[i] : = 0;       for i : = 1 to 10 do       begin           read(a[i]);           if a[i] < 0 then           begin               sum : = sum + 1;               b[i] : = i;           end;       end;       writeln('amount of negative numbers: ', sum);       for i : = 1 to 10 do           if b[i] < > 0 then write(b[i], ' '); end.2)var a: array [1..10] of integer;   i: integer; flag: boolean; begin      flag : = false;       randomize;       for i : = 1 to 10 do      begin          a[i] : = random(10);           if a[i] = 5          then              flag : = true;       end;       for i : = 1 to 10 do      write(a[i], ' ');       if flag      then          writeln('yes')      else          writeln('no'); end.3)var a: array [1..10] of integer; i, ind, odd: integer; begin      randomize;       ind : = 0;       for i : = 1 to 10 do      begin          a[i] : = random(10);           if a[i] mod 2 < > 0          then          begin              ind : = i;               odd : = a[i];           end;       end;       for i : = 1 to 10 do      write(a[i], ' ');       if ind < > 0      then          writeln(a[ind], ' ', ind)      else          writeln('array has no odd elements'); end.4)var a: array [1..10] of integer; i: integer; begin      writeln;       randomize;       for i : = 1 to 10 do      begin          a[i] : = random(20);           write(a[i], ' ');       end;       writeln;       for i : = 1 to 10 do          if (a[i] < 15) and(a[i] > 5)          then              write(a[i], ' '); end.

Program aaa; var y: array[1..1000,1..1000]  of  longint; n,m,i,j,count5,countm9,s5,sm9: longint; begin writeln('введите размерность массива'); read(n,m); writeln('введите массив'); for i: =1 to n do   for j: =1 to m do     read(y[i,j]); count5: =0; countm9: =0; s5: =0; sm9: =0; for i: =1 to n do  for j: =1 to m do   begin     if y[i,j]> 5 then         begin          inc(count5);           s5: =s5+y[i,j]       end;     if y[i,j]< -9 then          begin            inc(countm9);           sm9: =sm9+y[i,j]         end;     end; writeln('всего элементов больше 5: ',count5,' ,сумма этих  элементов  равна: ',s5); writeln('всего элементов меньше -9: ',countm9,' ,сумма этих элементов равна: ',sm9) end.