Текст решения задачи по программированию на PascalABC с комментариями. Что бы посмотреть объяснение этого решения нажмите смотреть видеоурок.
program stepen; uses crt;
{ Записать программу возвед. числа а в степень n } var a,n,i,p : integer; begin write('n=');readln(n); {Просим ввести степень числа и считываем её} write('a=');readln(a); {Просим ввести само число и считываем его} p:=1; {Если степень равна 0 то цикл ни разу не выполнится и выведется число р, которое мы задаем равным единице, если же укажите при выполнении программы степень равную 1, то цикл выполнится 1 раз и число а перемножится на р=1 после чего естественно получим само число а, что так же является правильным результатом} for i:=1 to n do p:=p*a; {В цикле на каждом кругу в переменную р, которую мы будем выводить в качестве конечного результата, заносится новое значение числа а , возведенного в степень равную значению счетчика т.е. при i=1 р=а*1; при i=2 р=а*1*a (т.е. а в квадрате); при i=1 р=а*1*a*а (т.е. а в кубе); } write('Число а в степени n = ',p){Выводим результат}; readln; end.
