Números perfeitos
Publicado por Perfil removido 27/12/2007
[ Hits: 7.419 ]
Lê um número e verifica se ele é perfeito..
program perfeito; uses crt; var i,num,total:integer; function verifica(num:integer):integer; begin for i:=1 to num-1 do if num mod i=0 then total:=total+i; if total=num then writeln('o num e ',num,' e perfeito') else writeln('o num ',num,' n e perfeito'); end; begin clrscr; readln(num); verifica(num); readln; end.
cadastro de um cliente com registro
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Customizar a Instalação do Linux Debian com Preseed
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
criar alias do comando "ls -la" (12)
Bora fazer um teste? mbti (20)
O que você está ouvindo agora? [2] (195)