Дано число а. возвести его в n-ую степень. на тему "цикл с известным числом повторения! "

я бы написал по другому

program vozvedenie_v_stepen;

var a,b: integer;

begin

writeln ('введите число, которое будем возводить в степень');

readln (a);

writeln ('введите число, обозначающее степень, в которую будем возводить');

readln (b);

writeln (a,' в степени ',b,' = ',exp(b*ln(;  

end. 

извиняюсь за неправильный ответ. не увидел, что вам нужно с циклом. тогда лучше

program vozvedenie_v_stepen; var a,b,c,d: integer; beginwriteln ( 'введите число, которое будем возводить в степень' ); readln (a); c: =a; writeln ( 'введите число, обозначающее степень, в которую будем возводить'); readln (b); for d: = 2 to b doa: =a*c; if b=0 thenwriteln(1)elsewriteln (c,' в степени ',b,' = ',a); end. 

program name;

var integer: a,i,b;

begin

b: =1

read(a,i);

for i: =1 to i do

b: =b*a;

write(b);

end.

вот и все в принципе.a -это число возведенное в степень i.

b-число например 2 в сепени 3=8(тут b=8,a=2,i=3)

на каком языке нужна программа?   пример на paskal:   program zadacha;   var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real;   begin  randomize;   write('isxodnij massiv: ');   for i: =1 to 15 do  begin  massiv: =random(41)-20;   write(massiv,' ');   end;   writeln;   writeln('massiv posle preobrazovanij: ');   for i: =1 to 15 do  begin  if massiv=0 then massiv2: =massiv  else  if massiv mod 5 = 0 then massiv2: =massiv*2  else begin  massiv2: =massiv;   massiv2: =massiv2/2;   end;   write(massiv2: 0: 1,' ');   end;   readln;   end.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт