Уисполнителя квадратор две команды, которым присвоены номера: №1 - "вычти 1" и №2. - "возведи в квадрат". составьте алгоритм получения из числа 5 числа 80, содержащий не более 5 шагов.

5- 1 = 4 4 - 1 = 3 3 * 3 = 9 9 * 9 = 81 81 - 1 = 80 ответ: 11221

Ответ:   11221 5-1=4 4-1=3 3*3=9 9*9=81 81-1=80

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018внимание! если программа не работает, обновите версию! 3. заполнить массив случайными целыми числами (0-10). найти сумму четных и нечетных значений.begin  var a: =arrrandom(readinteger('n='),0,10); a.println;   var so: =a.where(t-> t.isodd).sum;   var se: =a.where(t-> t.iseven).sum;   writeln('сумма четных значений равна ',so,', нечетных ',se)end.примерn= 154 2 1 9 1 1 6 5 10 8 3 9 7 7 9сумма четных значений равна 52, нечетных 30 5. заполнить массив целыми числами с клавиатуры. найти произведение всех элементов массива.ограничим ввод нулем, поскольку ввод нуля обнулит все произведение.begin  readseqintegerwhile(t-> t< > 0).aggregate(biginteger(,q)-> p*q).printlnend.пример-4523 235423 6734532 2342354 67345423 2342342 -43532423 0115347094687898985235964440890392383424914416 7. заполнить массив случайными целыми числами в интервале от 0 до 18. найти наибольший элемент среди всех чисел массива и указать его номер.begin  var a: =arrrandom(readinteger('n='),0,18); a.println;   var imax: =a.indexmax;   writeln('наибольший элемент ',a[imax],' имеет номер ',imax+1)end.примерn= 131 4 8 18 14 14 7 1 12 15 16 12 11наибольший элемент 18 имеет номер 4