Números perfeitos
Publicado por Perfil removido 27/12/2007
[ Hits: 7.181 ]
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.
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Calculadora completa com porcentagem(Lazarus)
Calculadora utilizando until e case
Cálculadora de décimo terceiro
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Sistema da Coréia do Norte - Red Star OS (54)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (47)
Instalação de Nova Distro (10)