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)
Поделитесь своими знаниями, ответьте на вопрос:
Дано число а. возвести его в 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.