Atividade
Faça um algoritmo que leia dois números inteiros e informe se o primeiro é divisível pelo segundo
Resposta
program divisivel;
var x,y: integer;
begin
write('Digite o primeiro número inteiro: ');
readln(x);
write('Digite o segundo número inteiro: ');
readln(y);
if (x MOD y = 0) then
write(x,' é divisível por ',y)
else write(x,' não é divisível por ',y);
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Divisível”