segunda-feira, 13 de junho de 2011

Múltiplos de 2 e 3

{faca um programa que carregue um vetor com sete numeros inteiro,
calcule e mostre: os numeros multiplos de 2; os numeros multiplos de 3;
os numeros multiplos de 2 e 3.}
Program Pzim ;
var
num: array [1..7] of integer;
mult2, mult3, mult2e3:integer;
i: integer;
 Begin

  {a entrada de dados deve ser feita dentro de um FOR}
 
  for i := 1 to 7 do
  begin
  writeln ('Digite o ',i,'o. numero: ');        {solicita e recebe os numeros para preencher o vetor}
  readln (num[i]);
  end;
  clrscr;
           
            {cada verificação deve ser feita dentro de um FOR separado}
           
writeln('Os números multiplos de 2, são : ');      {exibe a mensagem "uma única vez"}
for i:= 1 to 7 do {faz de 1 até 7}
begin
if (num[i] mod 2 = 0 ) then
begin
mult2 := num[i];            {registra o numero e ...}
writeln(mult2);             {...mostra os numeros}
end;
end;                                      
writeln;                                   {insere uma linha em branco}

{cada verificação deve ser feita dentro de um FOR separado}

writeln('Os números multiplos de 3, são : ');      {exibe a mensagem "uma única vez"}
for i:= 1 to 7 do
begin
if (num[i] mod 3 = 0 ) then
begin
mult3 := num[i];            {registra o numero e ...}
writeln(mult3);               {...mostra os numeros}
end;
end;                                    {insere uma linha em branco}
writeln;

{cada verificação deve ser feita dentro de um FOR separado}

writeln('Os números multiplos de 2 e de 3, são : ');   {exibe a mensagem "uma única vez"}
for i:= 1 to 7 do
begin
if (num[i] mod 2 = 0) and (num[i] mod 3 = 0) then
begin
mult2e3 := num[i];               {registra o numero e ...}
writeln (mult2e3);                 {...mostra os numeros}
end;
end;
 End.