algoritmo "cont_par100"
// Função :
// Autor :
// Data : 05/06/2017
// Seção de Declarações
var
contador, soma: inteiro
inicio
// Seção de Comandos
para contador de 1 ate 100 passo 1 faca
se(contador mod 2 = 0) entao
escreval (contador)
soma := soma + contador
fimse
fimpara
escreval ("A soma é ", soma)
fimalgoritmo
// Função :
// Autor :
// Data : 05/06/2017
// Seção de Declarações
var
contador, soma: inteiro
inicio
// Seção de Comandos
para contador de 1 ate 100 passo 1 faca
se(contador mod 2 = 0) entao
escreval (contador)
soma := soma + contador
fimse
fimpara
escreval ("A soma é ", soma)
fimalgoritmo