Lista 25 out. 2

Faça um programa que mostre na tela o(s) número(s) dentro do intervalo entre 600 e 700 que sejam múltiplos de 5 e também de 7.

algoritmo "25 Outubro 2"
// Função : Procurar numeros multiplos de 5 entre 600 e 700
// Autor : Gustavo Ferreira
// Data : 26/10/2010
// Seção de Declarações 
var
   i:inteiro
inicio
// Seção de Comandos
   escreval("O numeros abaixo sao multiplos de 5 e tambem de 7")
   para i de 600 ate 700 passo 1 faca
        se ((i mod 5) = 0) entao
           se ((i mod 7) = 0) entao
              escreval(i)
           fimse
        fimse
   fimpara
fimalgoritmo