{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.
