1. составить программу, которая будет находить аb, то есть b-ю степень числа а, где а и в - это целые числа и в> 0, вводимые с клавиатуры.

Var a,b,i,c : integer; begin writeln('vvedite a'); readln(a); writeln('vvedite b'); readln(b); c: =1; for i: =1 to b do c: =c*a; writeln('otvet: ',c) end.

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,-50,50);   a.println(',');   writeln('четные элементы: ');   var i: =1;   while i< n do begin write(a[i],' '); inc(i,2) end;   writeln;   writeln('нечетные элементы: ');   i: =0;   while i< n-1 do begin write(a[i],' '); inc(i,2) end;   writeln end. тестовое решение: количество элементов в массиве:   10 15,-18,-29,-25,46,21,-8,-17,-9,15 четные элементы: -18 -25 21 -17 15 нечетные элементы: 15 -29 46 -8 -9

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,-10,10).println(',');   write('неотрицательные элементы: ');   a.where(x-> x> =0).println(',');   write('отрицательные элементы: ');   a.where(x-> x< 0).println(','); end. тестовое решение: количество элементов в массиве:   15 0,2,-2,-9,6,4,7,2,5,-3,3,-5,0,9,-6 неотрицательные элементы: 0,2,6,4,7,2,5,3,0,9 отрицательные элементы: -2,-9,-3,-5,-6