Números perfeitos

Publicado por Perfil removido 27/12/2007

[ Hits: 6.563 ]

Download EXE3.PAS




Lê um número e verifica se ele é perfeito..

  



Esconder código-fonte

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.

Scripts recomendados

Media dos Alunos

escreve os números de 1 a 9 com repeat - until

Hello World!!!

Maior e menor

Existência de triângulo, em Pascal


  

Comentários
[1] Comentário enviado por albertguedes em 27/12/2007 - 22:36h

Pra mim todo número é perfeito, e também pensava que o Pascal estivesse morto. ; )

Brincadeiras a parte, valeu pela iniciativa Joana. Continue praticando.
Pois a pratica leva a perfeição.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts