Дано целое число x и натуральное n. составить алгоритм вычисления х в степени n . написать программу на паскале.

program m1; var x,n,i: integer; beginreadln (x,n); for i: =1 to n do beginx: =x*x; end; write ('x=',x); readln; end.

синтаксис питона отличается от синтаксиса любого другого яп. не исключение являются и отступы. суть в том, что на каждый вложенный код инструкции полагается одинаковое количество, скажем так, пробелов. как правило их 4, и не стоит их изменять, т.к. они уже заложены в функцию enter то есть табуляцию.

под вложенным кодом инструкции я подразумеваю вот такую конструкцию:

основная инструкция:

_ _ _ _ (4 пробела, или же просто нажатие на enter) вложенная инструкция

основная инструкция это операторы ветвления(if, elif, else), операторы цикла(for, while), классы, декораторы и т.д.

вложенная инструкция - код программы внутри

надеюсь, понятно всё объяснил

во-первых хотелось бы узнать, почему у тебя в 24 строчке странная запись:

if (p else f: =false;

здесь непонятно, к чему написана скобка, а также непонятно, куда затерялся синтаксический then.

во-вторых - почему в той же строчке сравниваешь тип real с типом boolean? на это ругается даже компилятор.

в-третьих - если мы опустим эти недочёты и вникнем в алгоритм, то поймём, что ты зациклил условие проверки p на истинность до тех пор, пока i не будет больше n или пока f не станет ложью. но тут подвох в чём? в этом цикле ты не производишь никаких действий над операторами в условии, кроме как присваивание булевой переменной f значение false, чему оно и равно изначально. то есть можно сказать, что у тебя здесь происходит бесконечное зацикливание. скорее всего именно поэтому у тебя не выводится массив, потому что компилятор не в состоянии дойти до строчки вывода. чтобы хотя бы часть условия выполнилась, тебе нужно в условии if..then..else присваивать f не false, а true. но это только в том случае, если ты исправишь конструкцию условия.