Question

Faça um algoritmo que exiba na tela todos os múltiplos de 7 entre os números de 1 a 100 em ordem decrescente, no programa Pascal.

Answer 1

// Algorítmo para o programa Dev-Pascal


program multiplodesete;
var
  a:integer;
begin
      for a := 1 to 100 do
  begin
      if (a mod 7) = 0 then
   Writeln(a);
end;
   readln();

end.


// Espero ter ajudado.. :))