Question

Запишем на Языке Паскаль алгоритм вычисления степени с натуральным показателем n для любого существенного числа a
СРОЧНО❤❤❤

Answer 1

Ответ:

var

 a, i, n, sum: integer;

 

begin

 read(a, n);

 sum := 1;

 for i := 1 to n do sum := sum * a;

 writeln(sum);

end.

Answer 2

немного покрасивее сделал

////////////////////////////////////////////

program vozvedenieVstepen;

var  a, i, n, sum: integer;

begin

 write('число = ');

 readln(a);

 write('степень = ');

 readln(n);

 sum:=1;

 for i:=1 to n do

   sum:=sum*a;

 writeln(sum);

end.