Question

Пожалуйста, помогите объяснить, как работает эта программа и почему выбраны именно эти действия.
program power;
var i, n, x, res:integer;
begin
readln(x,n);
res:=x;
for i:=1 to (n-1) do
begin
res:=res*x;
end;
writeln(res);
end.

Answer 1

Ответ:

На вход берется 2 значения, первое сразу же присваивается к переменой RES второй у нас необходимо для определения максимального шага в цикле FOR. Но максимальное число шагов определяется (N-1), то есть от второго числа которого мы ввели ранее отнимается 1; В самом цикле записывается перемножение двух переменных, причем с одинаковым значение. ( Проще было бы Sqr(x) ). После выполнения цикла программа выводи значение переменной Res