Dados um inteiro x e um inteiro não-negativo n, calcular x n
[PASCAL]program Potencias;
var
x,
n,
potencia,
contador: integer;
begin
writeln(”);
writeln(‘ CALCULO DE POTENCIAS’);
writeln(”);
repeat
write(‘Entre com um numero inteiro e um natural: ‘);
read(x,n);
if n < 0 then writeln(‘O segundo numero deve ser natural!!’)
until n >= 0;
potencia := 1;
contador := 0;
while(contador <> n) do
begin
potencia := potencia * x;
contador := contador + 1
end;
writeln (‘O valor de ‘, x,’ elevado a ‘, n,’: ‘, potencia)
end.[/PASCAL]
ou Confira Este Código feito por mim!
