Números perfeitos
Publicado por Perfil removido 27/12/2007
[ Hits: 7.488 ]
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.
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Calculadora Empresarial Lazarus
escreve os números de 1 a 9 com repeat - until
controle de notas de uma clase com vetor e registro
Desktop turbinado: novidades em apps, distros e privacidade no mundo Linux
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Desktop Linux ganha novos apps enquanto IA invade o noticiário
Blender 5.0 Beta, Firefox 144 e avanço da IA dominam o dia no mundo Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Baixar jogos Independentes para Ubuntu [RESOLVIDO] (4)
PIP3 - erro ao instalar módulo do mariadb para o Python (1)
Linux x Plataformas de Trading - um problema (in-)solúvel? (4)