Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Guest tsenart

[Resolvido] Outro....Divisores

Mensagens Recomendadas

Guest tsenart   
Guest tsenart

Lol. Sou mm noob.

Este pede-me os divisores de um número a introduzira pelo utilizador... Não consigo outra x. Não aparece nada no ecran...

program vinte_pas;

var
    num,conta:integer;
    
begin
    write('Introduza um número: '); readln(num);
    conta:=num;
    for conta:=conta to 0 do
    begin
        if num MOD conta=0 then
        writeln(conta);
    end
end.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Guest tsenart   
Guest tsenart

Lol. Sou mm noob.

Este pede-me os divisores de um número a introduzira pelo utilizador... Não consigo outra x. Não aparece nada no ecran...

program vinte_pas;

var
    num,conta:integer;
    
begin
    write('Introduza um número: '); readln(num);
    conta:=num;
    for conta:=conta to 0 do
    begin
        if num MOD conta=0 then
        writeln(conta);
    end
end.

RESOLVIDO!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
TheDark    0
TheDark

Já agora postavas a resolução... vejo nesse código algumas coisas estranhas, que não sei se são possíveis em Pascal, mas se já resolveste o problema também não me vou chatear.

Embora tenha quase a certeza que esse for tem que ser com downto... ::)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Guest tsenart   
Guest tsenart

É isso. Estava a confundir com C em que o to serve para tudo. Aqui em pascal há o [glow=green,2,300]downto[/glow]...

Aqui fica a resolução:

program vinte_pontoquatro;

var
    num,conta:integer;
    
begin
    write('Introduza um número: '); readln(num);
    conta:=num;
    for conta:=conta [b]downto[/b] 1 do
    begin
        if num MOD conta=0 then
        writeln(conta);
    end
end.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade