Question

Desenvolva um programa que calcule a soma dos 50 primeiro números pares de 0 a 1000 e mostre o total. Em portugol (VisualG)

Answer 1

Algoritmo "somapares"

Var
numero: inteiro
soma: inteiro

Inicio
soma <- 0
para numero de 1 ate 100 faca
   se numero mod 2 = 0 entao
      soma <- soma+numero
   fimse
fimpara

escreval("Soma dos números pares de 0 a 100: ",soma)

Fimalgoritmo