Resolvido! Pascal onde está o erro?

[ucastro]

Fiz um programa para identificar 4 números de leitura se é divisível por 2 ou 3.

Mas o programa só dá o resultado de três números.

Veja :

Escreva o valor do primeiro número: 1
Escreva o valor do segundo número: 2
Escreva o valor do terceiro número: 3
Escreva o valor do quarto número: 4
O número: 2 é divisível por 2
O número: 3 é divisível por 3
O número: 4 é divisível por 2

Tecle <ENTER> para encerrar.

Observaram que falta um número para dar o resultado. Veja como está o algoritmo do pascal abaixo e se conseguem achar o erro:

program divisivel;

uses crt;

var

N1,N2,N3,N4:integer;

Begin

Clrscr;

write('Escreva o valor do primeiro número: ');readln(N1);

write('Escreva o valor do segundo número: ');readln(N2);

write('Escreva o valor do terceiro número: ');readln(N3);

write('Escreva o valor do quarto número: ');readln(N4);

if N1 mod 2=0 then

writeln('O número: ',N1,' é divisível por 2');

if N1 mod 3=0 then

writeln('O número: ',N1,' é divisível por 3');

if N2 mod 2=0 then

writeln('O número: ',N2,' é divisível por 2');

if N2 mod 3=0 then

writeln('O número: ',N2,' é divisível por 3');

if N3 mod 2=0 then

writeln('O número: ',N3,' é divisível por 2');

if N3 mod 3=0 then

writeln('O número: ',N3,' é divisível por 3');

if N4 mod 2=0 then

writeln('O número: ',N4,' é divisível por 2');

if N4 mod 3=0 then

writeln('O número: ',N4,' é divisível por 3');

writeln;

write('Tecle <ENTER> para encerrar.');readln;

end.

Editado Janeiro 17, 2008 por ucastro

[Graymalkin]

Seu programa está certo: é que 1 realmente *não* é divisível por 2 e nem por 3. E você não mandou ele escrever nada nestes casos. Ou seja, se quisesse mostrar esta informação você teria que colocar o else:

if N1 mod 2=0 then
    writeln('O número: ',N1,' é divisível por 2')
else
    writeln('O número: ',N1,' não é divisível por 2');

if N1 mod 3=0 then
    writeln('O número: ',N1,' é divisível por 3')
else
    writeln('O número: ',N1,' não é divisível por 3');

Certo? ;)

Graymalkin

[ucastro]

Que mancada a minha, valeu pela força!!!