Question

Fazer um algoritmo que leia um número e informe se ele é divísivel por 3 e por 7.

Answer 1

program l2p11;

var

NUM, RESTO3, RESTO7: integer;

begin

write('Digite um numero: ');

readLn(NUM);

RESTO3 := NUM mod 3;

RESTO7 := NUM mod 7;

if ( RESTO3 = 0 ) and ( RESTO7 = 0 ) then

writeLn(NUM,' eh divisivel por 3 e por 7 ')

else

writeLn(NUM,' nao eh divisivel por 3 e por 7');

end.

NUM = input('Digite um numero: ');

RESTO3 = mod(NUM,3);

RESTO7 = mod(NUM,7);

if ( RESTO3 == 0 ) & ( RESTO7 == 0 )

fprintf(1,'%d eh divisivel por 3 e por 7\n',NUM);

else

fprintf(1,'%d nao eh divisivel por 3 e por 7\n',NUM);

end