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

Дано число а. возвести его в n-ую степень. задача на тему "цикл с известным числом повторения!" помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость
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)  
Гость
Я бы написал по другому   Program vozvedenie_v_stepen; var a,b:integer; begin writeln ('Введите число, которое будем возводить в степень'); readln (a); writeln ('Введите число, обозначающее степень, в которую будем возводить'); readln (b); Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));  end.    Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...   Program vozvedenie_v_stepen; var a,b,c,d:integer; begin writeln ( 'Введите число, которое будем возводить в степень' ); readln (a); c:=a; writeln ( 'Введите число, обозначающее степень, в которую будем возводить'); readln (b); for d:= 2 to b do a:=a*c; if b=0 then writeln(1) else writeln (c,' в степени ',b,' = ',a); end. 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы