Пользуясь ограничениями предыдущей , (в арифметических выражениях можно использовать только операции сложения, вычитания и умножения, каждое выражение может содержать только одну арифметическуюоперацию.)напишите наиболее короткие алгоритмы вычесления выражений: y=x в восьмой степени, y=x в десятой степени, y=x в пятнадцатой степени, y=x в девятнадцатой постарайтесь использовать минимальное количестводополнительных переменных.выполните трассировку алгоритмов. сделайте на листочке сфоткайте и пришлите сюда [email protected] 40 очков

универсальное

 

var i,n,x,y: integer;

begin

  read(x,n);

  for i : = 1 to n do

      y: = y*x;

  writeln(y);

end.

 

частные

y=x*x | x^2

y=y*y | x^4

y=y*y | x^8

 

a=x*x

y=a*a

y=y*y

y=y*a = x^10

 

y=x*x

y=y*y

y=y*y

y=y*y = x^16

y=y/x = x^15

Program task1; const   n = 10; var   a : array [1..n] of real;   i, j : integer;   min, k : real; begin   for i: = 1 to n do       readln(a[i]);     min: = a[1];   for i: = 1 to n do       if a[i] < min then       begin           min: = a[i];           j: = i;       end;         k: = a[n];   a[n]: = a[j];   a[j]: = k; end. program task2; const   n = 10; var   a : array [1..n] of integer;   i, j, kol : integer; begin   for i: = 1 to n do       readln(a[i]);     kol: = 0;   for i: = 1 to n do       if a[i] mod 3 = 0 then           inc(kol);   for i: = 1 to n do       if a[i] = kol then       begin           j: = i;           break;       end;   writeln(j); end.

1dim a(10, 5) randomize timer for i = 1 to 10     for j = 1 to 5         a(i, j) = int(rnd * 10)         print a(i, j);         s = s + a(i, j) ^ 2     next j     print , s next iисправленный вариант (предыдущий находил только суммы квадратов элементов). уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялисьdim a(3, 3)randomize timerp = 1for i = 1 to 3    for j = 1 to 3        a(i, j) = int(rnd * 5)        print a(i, j);         s = s + a(i, j) ^ 2    next j    p = p * s    printnext iprintprint "p="; p2  dim a(10)randomize timerp = 1for i = 1 to 10    a(i) = int(rnd * 20) - 10    print a(i); " ";     if a(i) > o then        s = s + a(i)        p = p * a(i)        n = n + 1    end ifnext iprintprint "s="; sprint "p="; pprint "kol-vo="; n