Синформатикой. : дано существенное число а. используя операцию умножения, получить а15 за пять операций.

надо получить а^15?

 

x : = a*a*a; // получаем а^3y : = x*a; // получаем а^4

z : = y*y; // получаем а^8

t : = z*y; // получаем а^12

r : = t*x; // получаем а^15

B: =a*a*a; (b=a^3) c: =b*b (c=b^2=a^(3*2)=a^6) d: =c*c*b (d=c^2*b=b^(2*2)*b=b^5=a^(3*5)=a^15) все обычные скобки замените на фигурные)

Янапишу на паскале; program srednie_v_masive;     var a: array[1..3] of longint;         s,k,i,n: longint; begin    readln(n);     while not eof do      begin          for i: =1 to n do            begin                read(a[i]);                 s: =s+a[i];             end;           writeln(s/n);       end; end. n - ето количество чисел в масиве,а - ето масив значений,s - cума чисел, и выводим среднее в масиве значение ето сума поделеная на их количесво,тобеш n

Program vasha_zadacha_1; var b,c: integer;     a: array [1..20] of integer;   begin  randomize;   b: =0;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     if (a[c] mod 2 = 0) then b: =b+a[c];     end;   writeln('сумма чётных элементов массива', b);   end.program vasha_zadacha_2; var b,c: word ;   a: array [1..20] of integer;   begin  randomize;   b: =1;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     b: =b*a[c];     end;     writeln('произведение всех элементов массива ', b);   end.program vasha_zadacha_3; var b,c: word ;   a: array [1..20] of integer;   begin  randomize;   b: =0;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     if (a[c] > = 50) and (a[c]< =60) then b: =b+a[c];     end;   writeln('сумма элементов в диапазоне от 50 до 60 ', b);   end.