PORTUGOL

funcao inicio()

{

 inteiro i, somaImpar=0, somaPar=0, diferenca

 para(i=50; i<= 100; i++)

 se (i % 2 == 1)

 somaImpar+=i

     escreva("A soma dos numeros impares de 50 a 100 é: ", somaImpar,"n")

     para(i=300; i<= 500; i++)

 se (i % 2 == 0)

 somaPar+=i

     escreva("A soma dos numeros pares de 300 a 500 é: ", somaPar,"nn")

         diferenca=somaImpar-somaPar

     escreva("A diferença entre os valores impares e pares sao: ",diferenca)

Visual

algoritmo "Antonio Henrique"

var

 i         :inteiro

 somaImpar :inteiro

 somaPar:inteiro

Inicio

somaImpar<-0

para i de 50 ate 100 faca

  se (i mod 2 = 1) ENTÃO

     somaImpar<-somaImpar+i

  fimSe

fimPara

escreval("A soma dos impares entre 50 e 100 é",somaImpar)

para i de 300 ate 500 faca

  se (i mod 2 = 0) ENTÃO

     somaPar<-somaPar+i

  fimpara

  escreval("A soma dos pares entre 300 e 500 é",somaPar)

  fimalgoritmo

Explicação:

o de cima e do PORTUGOL, o que esta abaixo e do VisualAlg, abraço.