All pastes #167457 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-09-12 00:41 UTC
rendered paste body
	n,aux = inteiro
	LER VALOR(n)
	aux2= 1
	Para i = 1 até n faça
		aux2 = aux2 * 2
		Se aux2 = n então
			aux = 1
		senão
			aux=0
		fim do se
   	fim do para
	Se aux = 0 então 
		imprimir('O número não é uma potência de dois')
	se aux = 1 então
		imprimir('O numero e uma potencia de dois')
fim