Question

Calcule um algarismo que leia dois números naturais m e n e apresente os múltiplos de 3 no intervalo de m e n . No programa Pascal​

Answer 1

program exercicioMultiploTres;

uses crt;

var a:integer; //declarando variavel a como inteiro

var b:integer; //declarando variavel b como inteiro

var m:integer; //declarando variavel m como inteiro

var n:integer; //declarando variavel n como inteiro

var numero:integer; //declarando variavel numero como inteiro

begin

//======== SALVANDO DADOS DE m E n ================

 write('Digite um numero: ');  

 readln(m); //salva valor de m

 write('Digite outro numero: ');

 readln(n); //salva valor de n

 writeln(''); //quebra uma linha

//======== COLOCANDO EM ORDEM CRESCENTE =========

 if(m < n) then

 begin

   a := m;

   b := n;

 end

 else

 begin

   a := n;

   b := m;

 end;

 Writeln('Multiplos de 3 entre ', a ,' e ', b);

 

//percorrendo os dois valores e verificando os multiplos de 3

 for numero := a to b do

 begin

   if((numero MOD 3) = 0) then //verifica se o resto da divisao do numero por 3 e zero

       write(numero, ' - ');

 end;

end.