Составьте на паскале программу возведения в n-ую степень целого числа x.

program multy; var i, n, x, mt: integer; beginwrite('введите целое число x '); readln(x); write('введите степень n '); readln(n); mt: =x; for i: =1 to (n-1) do    begin        mt: =mt*x;     end; writeln(x,' в степени ',n,' равно ',mt); end.

program power;

var i, n, x, res: integer;

begin

readln(x, n);

res: =x;

for i: =1 to (n-1) do

    begin

      res: =res*x;

    end;

writeln(res);

end.

Const n = 10; var a: array[1..n]of integer;   min,imin,i,oldmin: integer; begin   //заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим минимальный элемент элемент   min: =100;   for i: =1 to n do begin       a[i]: =random(201)-100;       if a[i]< = min then       begin           min: =a[i];           imin: =i; //запомним index минимального       end;       write(a[i]: 5);   end;   writeln;     //в цикле сдвигаем элементы массива   //до индекса минимального включительно на   //одну позицию вправо   for i: =imin downto 2 do       a[i]: =a[i-1];       a[1]: =min;   //вывод элементов массива   for i: =1 to n do write(a[i]: 5);   end.

Вроде здесь уже решал такое : ) //pascal var   n, a, b, c: integer; begin   n : = 1;   repeat       repeat           writeln(' ведите стороны a,b,c ', n, ' - треугольника');           readln(a, b, c);       until ((a > 0) and (b > 0) and (c > 0)) and ((a + b) > = c);       writeln('периметр равен ',a + b + c);       n : = n + 1;   until n > 25; end.