Напишите программму(Паскаль), которая возводит данное натуральное число x в натуральную степень y. (Используйте цикл со счетчиком for...to...do)

var

x,y,i,osn: Integer;

begin

Readln(x, y);

osn:= x; // Переменная для основания

for i:= 1 to y-1 do

x *= osn;

Writeln(x);

end.

Ответ:

Вот:

Pascal

var

 a,n,i:integer;

begin

 write('Введите а и п: ');

 read(a,n);

 writeln;

 for i:=2 to n do

   a:=a*a;

 write('Число в степени ',n,' равно ',a);

end.

Объяснение: