Составьте программу для вычисления значения выражения x в степени n + y в степени m. значения x, y, n, m > 0 вводятся с клавиатуры. примечание: чтобы возвести число в n-ную степень, надо его умножить само на себя n раз.

Begin var x, y, n, m: integer; readln(x, y, n, m); assert((x > 0) and (y > 0) and (n > 0) and (m > 0)); var upstep: integer : = n + y; for var i : = 2 to m do upstep *= (n + y); var lowstep : = x; for var j : = 2 to upstep do lowstep *= x; writeln(lowstep); end.

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   writeln(readseqinteger('вводите числа: ',readinteger('n='))           .where(x-> abs(x).between(10,) end. пример n= 5 вводите числа: 23 -4 100 -42 16 3 begin   var k: =readinteger('k=');   writeln(readseqinteger('вводите трехзначные числа: ',readinteger('n='))           .where(m-> abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).count) end. пример k= 8 n= 10 вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473 2

Var n,sum: integer; begin sum: =0; write('введите n: '); readln(n); for var i: = 1 to n do begin readln(n); if (abs(n)> 9) and (abs(n)< =99) then sum: =sum+1; end; writeln('количество двузначных чисел: ',sum); end.  var n,k,sum: integer; begin sum: =0; write('введите n: '); readln(n); write('введите k: '); readln(k); for var i: = 1 to n do begin readln(n); if (abs(n)> 9) and (abs(n)< =99) then if div 100)*((n div 10) mod 10)*(n mod 10)) = k) then sum: =sum+1; end; writeln('количество чисел: ',sum); end.