Lista 02 - DCC/UFMG

17) Escreva um algoritmo em PORTUGOL que leia um número e informe se ele é
divisível por 10, por 5 ou por 2 ou se não é divisível por nenhum deles.
algoritmo L2P17;
var
inteiro: NUM;
início
leia(NUM);
se ( NUM mod 10 = 0 ) então
imprima("Múltiplo de 10");
senão
se ( NUM mod 2 = 0 ) então
imprima("Múltiplo de 2");
senão
se ( NUM mod 5 = 0 ) então
imprima("Múltiplo de 5");
senão
imprima("Não é múltiplo de 2 nem de 5");
fim-se
fim-se
fim-se
fim
program l2p17;
var
NUM: integer;
begin
write('Digite um numero: ');
readLn(NUM);
if ( NUM mod 10 = 0 ) then
writeLn(NUM,' eh divisivel por 10')
else
if ( NUM mod 2 = 0 ) then
writeLn(NUM,' eh divisivel por 2')
else
if ( NUM mod 5 = 0 ) then
writeLn(NUM,' eh divisivel por 5')
else
writeLn(NUm,' nao eh divisivel por 2, 5 e 10!');
end.
NUM = input('Digite um numero: ');
if ( mod(NUM,10) == 0 )
fprintf(1,'%d eh divisivel por 10\n',NUM);
else
if ( mod(NUM,2) == 0 )
fprintf(1,'%d eh divisivel por 2\n',NUM);
else
if ( mod(NUM,5) == 0 )
fprintf(1,'%d eh divisivel por 5\n',NUM);
else
fprintf(1,'%d nao eh divisivel por 2, 5 e 10!\n',NUM);
end
end
end
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 21