Написать пррограмму на Паскале, которая находит значение числа в любой степени.(цикл for)

Например пользователь вводит числа 2 и 3, а компьютер выдаёт ответ 8.

Мы в классе написали одну программу. Нужно в ней что-то исправить чторбы получить нужную мне програму.

program E10;

var a,b,f:integer;

begin

writeln('vvedite chislo');

readln(a);

f:=1;

for b:=1 to a do

f:=f*b;

writeln(a,'!=',f);

readln;

end.

1

Ответы и объяснения

Лучший Ответ!
2012-03-14T01:49:43+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program E10;

var a,b,i,s:integer;

begin

writeln('vvedite chisla');

readln(a,b);

s:=1;

for i:=1 to b do

     s:=s*a;

writeln(a,'^',b,' = ',s);

readln;

end.