Дано целое число x и натуральное n. составьте алгоритм вычисления x в n степени. проверте алгоритм трассировкой. напишите программу на паскале. только через while do самую простую программу, сложную не принимают

272

341

Посмотреть ответы 2

Ответы на вопрос:

angelenok1840

Информатика

4,6(7 оценок)

Var i,n,x: integer; p: longint; begin writeln('введите x и n: '); read(x,n); p: =1; i: =0; while i< n do begin p: =p*x; i: =i+1 end; writeln(x,'^',n,' = ',p) end. примеры введите x и n: 15 3 15^3 = 3375 введите x и n: 2 10 2^10 = 1024 введите x и n: 18 5 18^5 = 1889568 -9 7 -9^7 = -4782969 трассировка: введите x и n: 2 6 i=0 p=1 p=2 i=1 p=4 i=2 p=8 i=3 p=16 i=4 p=32 i=5 p=64 i=6 2^6 = 64