Дано число а. возвести его в 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.
Не нашли ответ?
Похожие вопросы