Números perfeitos
Publicado por Perfil removido 27/12/2007
[ Hits: 7.407 ]
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.
soma da diagonal principal de uma matriz
calculo de porcentagem em vetores
Coleta de dados de alunos em Pascal
Cronômetro feito no Lazarus(Delphi 7 para Linux)
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Audio intermitente xubuntu notebook positivo c14 vision (1)
Encontrar o comando completo de uma janela [RESOLVIDO] (2)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (2)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (10)