Question

Pascal

algoritmo para ler numeros pares de 2 até 100 e mostrar a soma final de todos.

Answer 1

Program SomadeParesde2a200;

var
Acumulador,Numero : Integer; 'declaração das variáveis como numeros inteiros

Begin
Acumulador = 0; 'Atribuição ao valor inicial da soma como zero
Numero = 2; 'Atribuição ao numero inicial como 2
    While (Numero < 202) do 'faca a conta ate o ultimo numero atingir 200.
        Begin   
        Acumulador = Acumulador + Numero 'acumula a soma com numero iniciando por 2 e terminando em 200, validado pela do while acima
        Numero = Numero + 2 'proximo numero par
    End
Write ('Soma de numeros pares de 2 a 200:', Acumulador);
End